A250193 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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.