A250193 Numbers n such that Phi(46,n) is prime, where Phi is the cyclotomic polynomial.

2, 3, 7, 16, 17, 18, 25, 46, 47, 106, 110, 111, 118, 136, 144, 145, 230, 238, 361, 382, 422, 439, 474, 494, 495, 519, 588, 639, 657, 707, 733, 751, 802, 831, 863, 902, 925, 976, 994, 1001, 1059, 1140, 1181, 1240, 1249, 1319, 1375, 1442, 1458, 1508, 1699, 1734, 1751, 1757, 1760, 1766, 1807, 1849, 1897, 1904, 1914, 1922

Offset: 1

Author

R. J. Mathar, Jan 12 2015

Keywords

• nonn

Links

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

Crossrefs

Cf. A246392.

Programs

Magma

[n: n in [1..2000]| IsPrime((n^23+1) div (n+1))]; // Vincenzo Librandi, Jan 15 2015

Mathematica

Select[Range[2000], PrimeQ[(#^23 + 1) / (# + 1)] &] (* Vincenzo Librandi, Jan 15 2015 *)

PARI

is(n)=isprime(polcyclo(46,n)) \\ Charles R Greathouse IV, Sep 08 2015