OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..150
MATHEMATICA
Select[Prime[Range[810000]], And@@PrimeQ[Table[#^n+#+1, {n, 4}]]&] (* Harvey P. Dale, Apr 07 2014 *)
PROG
(Python)
import sympy
from sympy import isprime
{print(p) for p in range(10**8) if isprime(p) and isprime(p**1+p+1) and isprime(p**2+p+1) and isprime(p**3+p+1) and isprime(p**4+p+1)}
(PARI) list(maxx)={n=2; cnt=0; while(n<maxx,
if(isprime(2*n+1) && isprime(n^2+n+1) && isprime(n^3+n+1) && isprime(n^4+n+1), cnt++; print(cnt, " ", n ) ); n=nextprime(n+1)); } \\ Bill McEachen, Feb 05 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Jan 18 2014
STATUS
approved