%I #17 Sep 08 2022 08:46:10
%S 2,3,7,16,17,18,25,46,47,106,110,111,118,136,144,145,230,238,361,382,
%T 422,439,474,494,495,519,588,639,657,707,733,751,802,831,863,902,925,
%U 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
%N Numbers n such that Phi(46,n) is prime, where Phi is the cyclotomic polynomial.
%H G. C. Greubel, <a href="/A250193/b250193.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[2000], PrimeQ[(#^23 + 1) / (# + 1)] &] (* _Vincenzo Librandi_, Jan 15 2015 *)
%o (Magma) [n: n in [1..2000]| IsPrime((n^23+1) div (n+1))]; // _Vincenzo Librandi_, Jan 15 2015
%o (PARI) is(n)=isprime(polcyclo(46,n)) \\ _Charles R Greathouse IV_, Sep 08 2015
%Y Cf. A246392.
%K nonn
%O 1,1
%A _R. J. Mathar_, Jan 12 2015