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,1

Links

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

Mathematica

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

Prog

(Magma) [n: n in [1..2000]| IsPrime((n^23+1) div (n+1))]; // Vincenzo Librandi, Jan 15 2015
(PARI) is(n)=isprime(polcyclo(46, n)) \\ Charles R Greathouse IV, Sep 08 2015

Crossrefs

Cf. A246392.

Sequence in context: A133736 A058698 A058699 * A004782 A049956 A289844

Adjacent sequences: A250190 A250191 A250192 * A250194 A250195 A250196

Keyword

nonn

Author

R. J. Mathar, Jan 12 2015

Status

approved