A361505 revision #17
|
|
|
|
1, 2, 5, 10, 24, 38, 87, 172, 349, 706, 1407, 2752, 5487, 11103, 22285, 44429, 88993, 177746, 356460, 712129, 1425163, 2849424, 5701776, 11401709, 22804522, 45608572, 91219022, 182438457, 364879209, 729757797, 1459514883, 2919031155, 5838065175, 11676129412, 23352260426
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
nn = 2^20; c[_] = False; q[_] = 1;
i = 1; j = 2; c[1] = c[2] = True; u = 3;
{1, 2}~Join~Reap[Monitor[Do[
(k = q[#]; While[c[k #], k++]; k *= #;
While[c[# q[#]], q[#]++]) &[(p = 2;
While[Divisible[i j, p], p = NextPrime[p]]; p)];
If[IntegerQ@ Log2[k], Sow[n]];
Set[{c[k], i, j}, {True, j, k}];
If[k == u, While[c[u], u++]], {n, 3, nn}], n]][[-1, -1]] (* Michael De Vlieger, Mar 18 2023 *)
|
|
PROG
|
(C++) See Links section.
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
editing
|
|
|
|