OFFSET
1,2
LINKS
David A. Corneth, PARI program
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 *)
PROG
(PARI) \\ See Corneth link
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa and David A. Corneth, Aug 07 2025
STATUS
approved
