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

%I #11 May 20 2019 14:43:40

%S 2,3,5,11,37,43,47,71,131,157,223,251,257,307,487,641,1087,1093,1187,

%T 1291,1433,1567,1621,1637,1831,1873,1901,2017,2111,2143,2293,2333,

%U 2473,2621,2663,2683,2707,2777,2843,2903,3257,3413,3463,3613,3617,3761,3793

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

%H Harry J. Smith, <a href="/A065510/b065510.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[600]],PrimeQ[#^4-#^3+#^2-#+1]&] (* _Harvey P. Dale_, May 20 2019 *)

%o (PARI) { n=0; for (m=1, 10^9, p=prime(m); if (isprime(p^4 - p^3 + p^2 - p + 1), write("b065510.txt", n++, " ", p); if (n==1000, return)) ) } \\ _Harry J. Smith_, Oct 20 2009

%Y Cf. A053182.

%K easy,nonn

%O 1,1

%A _Vladeta Jovovic_, Nov 26 2001