|
|
A063526
|
|
Smallest k such that 2^k has exactly n 5's in its decimal representation.
|
|
9
|
|
|
1, 8, 16, 39, 41, 68, 131, 108, 142, 178, 198, 201, 167, 215, 283, 344, 367, 318, 404, 428, 312, 461, 441, 556, 506, 562, 536, 716, 652, 679, 733, 690, 575, 807, 627, 949, 811, 867, 932, 1035, 1003, 1088, 893, 1112, 1193, 1080, 1127, 1094, 1016, 1283
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[ Count[ IntegerDigits[2^k], 5] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
Join[{1}, Flatten[With[{pwrs=DigitCount[#, 10, 5]&/@(2^Range[0, 1300])}, Table[Position[pwrs, n, 1, 1], {n, 50}]]]-1] (* Harvey P. Dale, Jan 28 2013 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|