A125883 Numbers k for which k^5+k^4-1 is prime.

2, 4, 7, 9, 11, 13, 16, 17, 18, 26, 27, 29, 31, 33, 34, 38, 39, 40, 43, 47, 50, 57, 59, 65, 69, 70, 76, 81, 89, 90, 92, 93, 95, 103, 107, 109, 126, 128, 129, 138, 140, 148, 162, 167, 179, 182, 183, 192, 197, 206, 209, 211, 221, 223, 226, 228, 229, 230, 234, 240

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

Do[If[PrimeQ[x^5 + x^4 - 1], Print[x]], {x, 1, 200}]
Select[Range[200], PrimeQ[#^5+#^4-1]&] (* Harvey P. Dale, Apr 10 2018 *)

Prog

(PARI) is(n)=isprime(n^5+n^4-1) \\ Charles R Greathouse IV, May 15 2013

Crossrefs

Cf. A000040, A045546, A125881, A125882, A125884, A125885.

Sequence in context: A138830 A122077 A029924 * A022848 A287723 A284589

Adjacent sequences: A125880 A125881 A125882 * A125884 A125885 A125886

Keyword

nonn

Author

Artur Jasinski, Dec 14 2006

Extensions

More terms from Amiram Eldar, Mar 18 2020

Status

approved