|
|
A063587
|
|
Smallest k such that 5^k has exactly n 2's in its decimal representation.
|
|
1
|
|
|
1, 2, 11, 13, 28, 25, 46, 53, 64, 66, 85, 100, 97, 115, 116, 148, 145, 107, 139, 184, 175, 209, 199, 274, 276, 251, 232, 244, 342, 250, 329, 339, 312, 375, 354, 332, 394, 351, 419, 362, 453, 415, 484, 517, 509, 468, 550, 541, 496, 522, 504
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
N:= 100:
V:= Array(0..N): count:= 0:
for k from 1 while count < N+1 do
v:= numboccur(2, convert(5^k, base, 10));
if v <= N and V[v] = 0 then count:= count+1; V[v]:= k;
fi
od:
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[ Count[ IntegerDigits[5^k], 2] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|