A259257 Primes of the form n^4 - n^3 + n^2 - n + 1.

11, 61, 521, 9091, 13421, 19141, 61681, 152381, 185641, 224071, 1151041, 1824841, 2031671, 3341101, 4778021, 5200081, 8987221, 25058741, 31224301, 32928901, 40454321, 42521761, 150451621, 212601841, 250062751, 292268861, 310565641, 329708341, 339604921

Offset: 1

Author

Robert Price, Jun 22 2015

Keywords

• nonn
• easy

Links

• Ray Chandler, Table of n, a(n) for n = 1..10000 (first 893 terms from Robert Price)
• OEIS Wiki, Cyclotomic Polynomials at x=sigma(n)

Crossrefs

Cf. A060884, A246392.

Programs

Magma

[a: n in [0..200] | IsPrime(a) where a is n^4-n^3+n^2-n+1]; // Vincenzo Librandi, Jun 23 2015

Mathematica

Select[Table[Cyclotomic[10, n], {n, 0, 200}], PrimeQ]
Select[Table[n^4 - n^3 + n^2 - n + 1, {n, 200}], PrimeQ] (* Vincenzo Librandi, Jun 23 2015 *)

PARI

lista(nn) = for (n=1, nn, if (isprime(p=polcyclo(10, n)), print1(p, ", "))); \\ Michel Marcus, Jun 23 2015

Formula

a(n) = A246392(A060884(n)).