A097475 Numbers n such that n^12 - n^6 + 1 is prime.

3, 7, 9, 10, 11, 14, 27, 30, 33, 37, 40, 51, 62, 71, 78, 80, 82, 95, 117, 125, 137, 142, 148, 157, 185, 189, 191, 197, 223, 232, 236, 252, 255, 265, 287, 321, 323, 324, 326, 332, 337, 341, 354, 369, 391, 414, 416, 418, 430, 487, 509, 545, 558, 563, 582, 588, 589

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

Select[ Range[ 1000], PrimeQ[ #^12 - #^6 + 1] &]

Prog

(Magma) [n: n in [0..700] | IsPrime(n^12-n^6+1)]; // Vincenzo Librandi, Jan 17 2015
(PARI) is(n)=isprime(n^12-n^6+1) \\ Charles R Greathouse IV, Feb 17 2017

Crossrefs

Sequence in context: A037372 A194407 A241662 * A177732 A081339 A063551

Adjacent sequences: A097472 A097473 A097474 * A097476 A097477 A097478

Keyword

nonn

Author

Robert G. Wilson v, Sep 18 2004

Status

approved