OFFSET
0,1
COMMENTS
LINKS
Paul Tek, Table of n, a(n) for n = 0..10000
MATHEMATICA
Join[{12}, Module[{nn=350, cno}, cno=Flatten[IntegerDigits/@Range[nn]]; Table[ SequencePosition[ cno, IntegerDigits[n], 2][[2, 1]], {n, 60}]]+1] (* Harvey P. Dale, Dec 09 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jul 07 2003
STATUS
approved