|
Search: id:A018856
|
|
|
| A018856 |
|
2^a(n) is smallest power of 2 beginning with n. |
|
+0
3
|
|
| 0, 1, 5, 2, 9, 6, 46, 3, 53, 10, 50, 7, 17, 47, 77, 4, 34, 54, 84, 11, 31, 51, 61, 81, 8, 18, 38, 48, 68, 78, 98, 5, 25, 35, 45, 55, 75, 85, 95, 12, 22, 32, 42, 145, 52, 62, 72, 82, 92, 102, 9, 19, 29, 39, 142, 49, 59, 162, 69, 79, 89, 192, 99, 6, 16, 119, 26, 36, 139, 46, 149, 56, 66
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
REFERENCES
|
A. M. & I. M. Yaglom, Challenging Mathematical Problems With Elementary Solutions, Vol. 1 pp. 29;199-200 Prob. 91a Dover NY 1987
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1, m = Floor[ Log[10, n]]}, While[ Log[10, 2^k] < Floor[ Log[10, n]], k++ ]; While[ Quotient[2^k, 10^(Floor[k*Log[10, 2]] - m)] != n, k++ ]; k]; f[1] = 0; ; Array[f, 73] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 02 2009]
|
|
CROSSREFS
|
Cf. A018802.
A100129: a(n)=n. [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 02 2009]
Sequence in context: A003671 A065262 A051356 this_sequence A019093 A097897 A063761
Adjacent sequences: A018853 A018854 A018855 this_sequence A018857 A018858 A018859
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
