OFFSET
1,1
MATHEMATICA
Flatten[Position[Partition[Table[Boole[MemberQ[Partition[IntegerDigits[n], 2, 1], {3, 0}]], {n, 6000}], 2, 1], {1, 0}]] (* Vincenzo Librandi, Aug 19 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Vincenzo Librandi, Aug 19 2015
STATUS
approved
