A386905 Distinct terms in A385988.

1, 2, 3, 7, 23, 11415, 56553873808298479843537432588765043239809588104012779518849306976361095532563320075112688420502361617080665176812695

Offset: 1

Author

Paolo Xausa and David A. Corneth, Aug 07 2025

Keywords

• nonn

Links

• David A. Corneth, PARI program

Crossrefs

Cf. A385988.

Programs

Mathematica

s = 0; k = 1; Reap[Do[s += k; If[IntegerQ@ Log2[s], k = n; Sow[k]], {n, 2^16}] ][[-1, 1]] (* Michael De Vlieger, Aug 07 2025 *)

PARI

\\ See Corneth link