OFFSET
1,2
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = {}; Do[If[PrimeQ[1 + n^2 + n^4 + n^6 + n^7], AppendTo[a, n]], {n, 1, 1400}]; a
Select[Range[1000], PrimeQ[1+#^2+#^4+#^6+#^7]&] (* Harvey P. Dale, Jan 15 2016 *)
PROG
(PARI) is(n)=isprime(1+n^2+n^4+n^6+n^7) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 31 2006
STATUS
approved
