A072596 Nonsquares with A072594(n) = 0.

70, 280, 630, 646, 1120, 1750, 1798, 2145, 2520, 2584, 3430, 3526, 4480, 5670, 5814, 5865, 6006, 7000, 7192, 8470, 8580, 9177, 10080, 10336, 11305, 11830, 13110, 13720, 14104, 15750, 16150, 16182, 16422, 17920, 19305, 20230, 20553, 20806

Offset: 1

Author

Reinhard Zumkeller, Jun 23 2002

Keywords

• nonn

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)

Crossrefs

Cf. A072595.

Programs

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