A125884 Numbers k for which k^6+k^5-1 is prime.

3, 4, 5, 8, 9, 16, 18, 30, 34, 36, 41, 48, 49, 51, 54, 61, 65, 69, 76, 81, 86, 89, 90, 95, 101, 109, 120, 141, 170, 171, 178, 196, 221, 235, 238, 244, 260, 263, 273, 280, 291, 301, 303, 310, 311, 326, 350, 361, 375, 391, 398, 404, 405, 406, 423, 429, 431, 454, 456, 464, 479, 484, 485, 486, 489, 499

Offset: 1

Author

Artur Jasinski, Dec 14 2006

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Maple

select(t -> isprime(t^6+t^5-1), [$1..1000]); # Robert Israel, Jan 08 2017

Mathematica

Do[If[PrimeQ[x^6 + x^5 - 1], Print[x]], {x, 1, 200}]

PARI

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

Extensions

More terms from Robert Israel, Jan 08 2017