OFFSET
1,1
COMMENTS
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[4000], ! SquareFreeQ[#^2 - 2] && ! SquareFreeQ[#^2 + 2] &] (* Vincenzo Librandi, Nov 18 2014 *)
PROG
(Magma) [n: n in [1..4000] | not IsSquarefree(n^2 - 2) and not IsSquarefree(n^2 + 2)];
(PARI) select(n->!issquarefree(n^2-2) && !issquarefree(n^2+2), vector(4000, n, n)) \\ Colin Barker, Nov 18 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 18 2014
STATUS
approved