|
|
A063626
|
|
Smallest k >= 0 such that 9^k has exactly n 0's in its decimal representation.
|
|
6
|
|
|
0, 5, 11, 41, 33, 38, 42, 27, 60, 71, 63, 85, 94, 139, 96, 127, 157, 166, 131, 160, 170, 148, 190, 210, 212, 203, 221, 222, 218, 257, 223, 243, 250, 275, 302, 255, 273, 271, 333, 372, 270, 339, 371, 457, 408, 347, 402, 410, 483, 448, 355
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 0; While[ Count[ IntegerDigits[9^k], 0] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
|
|
PROG
|
(PARI) A063626(n)=for(k=0, oo, #select(d->!d, digits(9^k))==n&&return(k)) \\ M. F. Hasler, Jun 15 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|