OFFSET
1,1
COMMENTS
A010052(a(n)) = 0. - Reinhard Zumkeller, Nov 17 2012
LINKS
Reinhard Zumkeller and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 1000 terms from Zumkeller)
PROG
(Haskell)
a072596 n = a072596_list !! (n-1)
a072596_list = filter ((== 0) . a010052) a072595_list
-- Reinhard Zumkeller, Nov 17 2012
(PARI) is(n)=if(issquare(n), return(0)); my(f=factor(n), t); for(i=1, #f~, if(f[i, 2]%2, t=bitxor(t, f[i, 1]))); t==0 \\ Charles R Greathouse IV, Aug 28 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 23 2002
STATUS
approved