OFFSET
0,1
LINKS
MATHEMATICA
nxt[{n_, t_, a_}]:=Module[{k=If[SequenceCount[t, IntegerDigits[ n+1, 2]]> 0, 1, 0]}, {n+1, Join[t, {k}], k}]; Join[{0}, NestList[nxt, {1, {0, 1}, 1}, 110][[All, 3]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 02 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 08 2006
STATUS
approved