0,1

Table of n, a(n) for n=0..75.

Table[k = 0; While[ StringPosition[ ToString[6^k], ToString[n] ] == {}, k++ ]; k, {n, 0, 75} ]

Cf. A030000. Essentially the same as A063569.

Sequence in context: A200306 A153790 A260932 * A093961 A154903 A216251

Adjacent sequences: A062520 A062521 A062522 * A062524 A062525 A062526

base,nonn

Robert G. Wilson v, Jun 24 2001

approved