A125884 Numbers n for which n^6+n^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,1

Links

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

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}]

Prog

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

Crossrefs

Cf. A000040, A045546, A125881-A125885.

Sequence in context: A329856 A327984 A066906 * A346456 A001602 A308197

Adjacent sequences: A125881 A125882 A125883 * A125885 A125886 A125887

Keyword

nonn

Author

Artur Jasinski, Dec 14 2006

Extensions

More terms from Robert Israel, Jan 08 2017

Status

approved