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, an=bitxor(an, i^2); an & an==1<<valuation(a, 2) & print1(i", "))
CROSSREFS
KEYWORD
more,nice,nonn
AUTHOR
M. F. Hasler, Oct 20 2008
STATUS
approved