A361505 - OEIS

A361505

Index of 2^n in A359804.

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

Table of n, a(n) for n=0..34.

Rémy Sigrist, C++ program

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;