|
| |
|
|
A165820
|
|
a(n) = the smallest positive integer that, when written in binary, contains both binary n and binary n^2 as substrings.
|
|
3
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A043056 A012879 A072178
Adjacent sequences: A165817 A165818 A165819 * A165821 A165822 A165823
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Leroy Quet, Sep 28 2009
|
|
|
EXTENSIONS
| a(7)-a(44) from Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 02 2009
|
| |
|
|
