|
| |
|
|
A063115
|
|
Smallest power of 2 having just n 1's in its decimal representation.
|
|
1
| |
|
|
1, 4, 17, 34, 57, 77, 70, 114, 127, 122, 207, 195, 202, 168, 319, 345, 329, 283, 410, 431, 463, 313, 467, 541, 485, 507, 610, 634, 563, 669, 576, 826, 655, 720, 784, 907, 894, 887, 766, 927, 945, 1029, 933, 994, 1134, 1102, 1171, 1205, 1351, 1309, 1128
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,150
|
|
|
MATHEMATICA
| a = {}; Do[k = 1; While[ Count[ IntegerDigits[2^k], 1] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
|
|
|
PROG
| (PARI) Count(x, d)= { local(c, f); c=0; while (x>9, f=x-10*(x\10); if (f==d, c++); x\=10); if (x==d, c++); return(c) } { for (n=0, 150, k=1; while (Count(2^k, 1) != n, k++); write("b063115.txt", n, " ", k) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 19 2009]
|
|
|
CROSSREFS
| Sequence in context: A163736 A127547 A031040 * A009954 A031092 A120884
Adjacent sequences: A063112 A063113 A063114 * A063116 A063117 A063118
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001
|
| |
|
|
