|
|
A065510
|
|
Primes p such that p^4 - p^3 + p^2 - p + 1 is prime.
|
|
1
|
|
|
2, 3, 5, 11, 37, 43, 47, 71, 131, 157, 223, 251, 257, 307, 487, 641, 1087, 1093, 1187, 1291, 1433, 1567, 1621, 1637, 1831, 1873, 1901, 2017, 2111, 2143, 2293, 2333, 2473, 2621, 2663, 2683, 2707, 2777, 2843, 2903, 3257, 3413, 3463, 3613, 3617, 3761, 3793
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[600]], PrimeQ[#^4-#^3+#^2-#+1]&] (* Harvey P. Dale, May 20 2019 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|