OFFSET
1,2
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 50000], PrimeQ[2 #^2 + 1] && PrimeQ[2 #^3 + 1] && PrimeQ[2 #^4 + 1]&] (* Vincenzo Librandi, Mar 30 2014 *)
PROG
(PARI) s=[]; for(n=1, 100000, if(isprime(2*n^2+1) && isprime(2*n^3+1) && isprime(2*n^4+1), s=concat(s, n))); s \\ Colin Barker, Mar 29 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 29 2014
STATUS
approved