login
Primes p such that p^4 + p + 1 is prime.
3

%I #6 Sep 27 2014 17:50:14

%S 2,5,11,47,89,107,131,191,197,239,347,641,701,839,941,977,1049,1061,

%T 1289,1709,1847,1871,1949,1979,2129,2789,2897,3371,3557,3719,3761,

%U 3917,4001,4091,4211,4289,4337,4397,4547,4751

%N Primes p such that p^4 + p + 1 is prime.

%H Harvey P. Dale, <a href="/A236044/b236044.txt">Table of n, a(n) for n = 1..1000</a>

%e 941 is prime and 941^4 + 941 + 1 is prime, thus 941 is a member of this sequence.

%t Select[Prime[Range[700]],PrimeQ[#^4+#+1]&] (* _Harvey P. Dale_, Sep 27 2014 *)

%o (Python)

%o import sympy

%o from sympy import isprime

%o {print(p) for p in range(10**5) if isprime(p) and isprime(p**4+p+1)}

%Y Cf. A049408.

%K nonn

%O 1,1

%A _Derek Orr_, Jan 18 2014