A125970 Numbers k for which k^13+k^12-1 is prime.

38, 47, 51, 91, 102, 139, 150, 203, 207, 212, 218, 225, 237, 245, 263, 269, 278, 280, 283, 297, 300, 302, 303, 337, 357, 367, 370, 382, 404, 405, 408, 411, 425, 452, 456, 472, 496, 509, 514, 595, 605, 619, 626, 630, 670, 693, 707, 714, 735, 771, 773, 799, 854

Offset: 1

Author

Artur Jasinski, Dec 14 2006

Keywords

• nonn

Links

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

Crossrefs

Cf. A000040, A045546, A125881-A125885, A125965-A125973.

Programs

Mathematica

Do[If[PrimeQ[x^13 + x^12 - 1], Print[x]], {x, 1, 600}]

PARI

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

Extensions

More terms from Amiram Eldar, Mar 18 2020