|
Search: id:A165820
|
|
|
| A165820 |
|
a(n) = the smallest positive integer that, when written in binary, contains both binary n and binary n^2 as substrings. |
|
+0
4
|
|
| 1, 4, 19, 16, 89, 100, 113, 64, 593, 1380, 377, 400, 425, 452, 481, 256, 4385, 1298, 723, 10640, 5561, 11748, 8471, 18456, 1649, 1700, 729, 1808, 1865, 1924, 1985, 1024, 33857, 9250, 36041, 75024, 5477, 11558, 40433, 83520, 1681, 87780, 22329, 92048
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1, is = IntegerString[n, 2], iss = IntegerString[n^2, 2]}, While[ StringPosition[ IntegerString[k, 2], is] == {} || StringPosition[ IntegerString[k, 2], iss] == {}, k++ ]; k]; Array[f, 44] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 02 2009]
|
|
CROSSREFS
|
Cf. A165819, A165821, A165822
Sequence in context: A009267 A009275 A070612 this_sequence A043056 A012879 A072178
Adjacent sequences: A165817 A165818 A165819 this_sequence A165821 A165822 A165823
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Sep 28 2009
|
|
EXTENSIONS
|
a(7)-a(44) from Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 02 2009
|
|
|
Search completed in 0.002 seconds
|
