0,1
a = {}; Do[k = 1; While[ StringPosition[ ToString[4^k], ToString[n] ] == {}, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
Essentially the same as A062521.
Sequence in context: A112597 A006666 A029683 this_sequence A072223 A124907 A020800
Adjacent sequences: A063564 A063565 A063566 this_sequence A063568 A063569 A063570
base,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001
Search completed in 0.002 seconds