OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 150], FreeQ[Split[IntegerDigits[#, 2]], {1, 1}] &] (* Paolo Xausa, Oct 15 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Feb 07 2010
STATUS
approved