OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
a(1)=1=1^2-0^2. a(2)=15=4^2-1^2. a(3)=20=6^2-4^2.
MAPLE
MATHEMATICA
A161753 := With[{nn = 500}, Complement[Range[0, nn], Prime[Range[PrimePi[nn]]]]^2]; Table[A161753[[n + 1]] - A161753[[n]], {n, 1, 50}] (* G. C. Greubel, Jul 29 2017 *)
Differences[With[{nn=100}, Complement[Range[0, nn], Prime[Range[ PrimePi[ nn]]]]^2]] (* Harvey P. Dale, Mar 03 2020 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Aug 01 2009
EXTENSIONS
a(6) corrected by R. J. Mathar, Aug 07 2009
STATUS
approved