0,1
a = {}; Do[k = 1; While[ StringPosition[ ToString[7^k], ToString[n] ] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
Essentially the same as A062524.
Adjacent sequences: A063567 A063568 A063569 this_sequence A063571 A063572 A063573
Sequence in context: A016708 A105724 A063448 this_sequence A023977 A073259 A071907
base,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001
Search completed in 0.002 seconds