0,1
a = {}; Do[k = 1; While[ StringPosition[ ToString[9^k], ToString[n] ] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
Sequence in context: A021195 A019673 A090183 this_sequence A131567 A114746 A133746
Adjacent sequences: A063569 A063570 A063571 this_sequence A063573 A063574 A063575
base,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001
Search completed in 0.002 seconds