A236761 Numbers n such that n^4-n+1 is prime.

3, 6, 9, 13, 16, 18, 19, 24, 33, 39, 43, 45, 46, 60, 63, 64, 69, 75, 78, 79, 85, 91, 94, 105, 106, 108, 109, 115, 121, 129, 138, 174, 175, 183, 195, 198, 205, 210, 220, 249, 250, 276, 289, 295, 300, 309, 313, 318, 324, 343, 346, 348

Offset

1,1

Links

Table of n, a(n) for n=1..52.

Example

115^4 - 115 + 1 = 174900511 is prime. Thus, 115 is a member of this sequence.

Mathematica

Select[Range[400], PrimeQ[#^4-#+1]&] (* Harvey P. Dale, Jun 03 2015 *)

Prog

(Python)
import sympy
from sympy import isprime
{print(n) for n in range(10**3) if isprime(n**4-n+1)}
(PARI)
s=[]; for(n=1, 400, if(isprime(n^4-n+1), s=concat(s, n))); s \\ Colin Barker, Jan 31 2014

Crossrefs

Cf. A049408, A126424.

Sequence in context: A317557 A338763 A159908 * A088364 A022853 A198264

Adjacent sequences: A236758 A236759 A236760 * A236762 A236763 A236764

Keyword

nonn

Author

Derek Orr, Jan 30 2014

Status

approved