OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
For n = 6: 5, 7, 37, 1297 are all primes.
MATHEMATICA
Do[s=n; If[PrimeQ[n-1]&&PrimeQ[n+1]&&PrimeQ[1+n^2] &&PrimeQ[1+n^4], Print[n]], {n, 1, 1000000}]
PROG
(PARI) is(k) = isprime(k-1) && isprime(k+1) && isprime(k^2+1) && isprime(k^4+1); \\ Amiram Eldar, Jun 21 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, Apr 23 2002
EXTENSIONS
Offset corrected by Amiram Eldar, Jun 21 2024
STATUS
approved