[go: up one dir, main page]

login
A125884
Numbers n for which n^6+n^5-1 is prime.
5
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 14 2006
EXTENSIONS
More terms from Robert Israel, Jan 08 2017
STATUS
approved