OFFSET
0,2
COMMENTS
LINKS
Yuriy Sibirmovsky, Table of n, a(n) for n = 0..1186
MATHEMATICA
Nm=1000;
Aa=Table[0, {j, 1, Nm}];
Aa[[3]]=1;
Do[B=Table[IntegerDigits[Aa[[l]]], {l, 1, j-1}];
Aa[[j+1]]=SequenceCount[Flatten[B], IntegerDigits[Aa[[j]]]], {j, 3, Nm-1}];
Table[Position[Aa, k][[1]]-1, {k, 0, 50}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Yuriy Sibirmovsky, Sep 04 2016
STATUS
approved