|
| |
|
|
A046296
|
|
Numbers k such that 2^k contains 2^10 = 1024 as its largest proper substring of the form 2^m.
|
|
1
|
|
|
|
224, 278, 286, 473, 502, 510, 645, 656, 698, 744, 871, 889, 909, 921, 955, 960, 966, 972, 1010, 1062, 1086, 1113, 1163, 1182, 1200, 1201, 1208, 1271, 1273, 1282, 1315, 1327, 1377, 1431, 1444, 1510, 1541, 1550, 1564, 1570, 1583, 1610, 1626, 1674, 1677
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..45.
|
|
|
MATHEMATICA
|
sub2[n_] := Block[{s = ToString[2^n], k = n - 1}, While[k >= 0 && ! StringContainsQ[s, ToString[2^k]], k--]; k]; Select[Range[1677], sub2[#] == 10 &] (* Giovanni Resta, Oct 14 2019 *)
|
|
|
CROSSREFS
|
Cf. A000079, A033921.
Sequence in context: A345542 A345543 A345796 * A240529 A177770 A202442
Adjacent sequences: A046293 A046294 A046295 * A046297 A046298 A046299
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Patrick De Geest, Jun 15 1998
|
|
|
STATUS
|
approved
|
| |
|
|
