0,1

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

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

Cf. A030000. Essentially the same as A063567.

Sequence in context: A200417 A309723 A198839 * A271951 A157700 A099645

Adjacent sequences: A062518 A062519 A062520 * A062522 A062523 A062524

base,nonn

Robert G. Wilson v, Jun 24 2001

approved