OFFSET
1,2
COMMENTS
Next term is > 10^7.
a(7) > 1.5*10^9. - Jon E. Schoenfield, Jan 14 2009
a(7) > 10^11. - Sean A. Irvine, Aug 12 2010
MATHEMATICA
Position[ FoldList[ BitXor, 0, Range[10^6]^2], n_ /; IntegerQ[Log[2, n]]] - 1 // Flatten (* Jean-François Alcover, Sep 30 2013 *)
PROG
(PARI) an=0; for(i=1, 10^6, hammingweight(an=bitxor(an, i^2))==1 && print1(i", ")) \\ Code updated, improved and typo fixed (thanks to Bill McEachen) by M. F. Hasler, Sep 24 2025
CROSSREFS
KEYWORD
more,nice,nonn
AUTHOR
M. F. Hasler, Oct 20 2008
STATUS
approved
