OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
2222^4+1, 2224^4+1 and 2226^4+1 are prime
MAPLE
N:= 10^5: # to get all terms <= N
R:= select(t -> isprime(t^4+1), [seq(i, i=2..N, 2)]):
V:= select(i -> R[i+2]=R[i]+4, [$1..nops(R)-2]):
R[V]; # Robert Israel, Apr 20 2017
MATHEMATICA
Select[Range[5000], PrimeQ[ #^4 + 1] && PrimeQ[(# + 2)^4 + 1] && PrimeQ[(# + 4)^4 + 1] & ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Martin Raab, Aug 26 2002
EXTENSIONS
More terms from Robert G. Wilson v, Aug 28 2002
STATUS
approved