OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..134
MATHEMATICA
Select[Range[0, 2000000], PrimeQ[2 #^2 + 1] && PrimeQ[2 #^3 + 1] && PrimeQ[2 #^4 + 1] && PrimeQ[2 #^5 + 1] &] (* Vincenzo Librandi, Mar 29 2014 *)
Select[Range[179*10^4], AllTrue[2 #^Range[2, 5] + 1, PrimeQ] &] (* Harvey P. Dale, Sep 24 2021 *)
PROG
(PARI) s=[]; for(n=1, 2000000, if(isprime(2*n^2+1) && isprime(2*n^3+1) && isprime(2*n^4+1) && isprime(2*n^5+1), s=concat(s, n))); s \\ Colin Barker, Mar 29 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 29 2014
STATUS
approved