0,1

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

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

Cf. A030000. Essentially the same as A063568.

Sequence in context: A261168 A329086 A265294 * A117888 A295330 A094240

Adjacent sequences: A062519 A062520 A062521 * A062523 A062524 A062525

base,nonn

Robert G. Wilson v, Jun 24 2001

approved