|
|
A165820
|
|
a(n) = the smallest positive integer that, when written in binary, contains both binary n and binary n^2 as substrings.
|
|
5
|
|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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] (* Robert G. Wilson v, Oct 02 2009 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|