%I #13 May 19 2018 02:02:07
%S 11,18,23,24,29,33,40,51,61,65,85,91,95,113,153,206,207,218,264,276,
%T 285,292,313,332,347,362,367,391,417,418,424,426,428,439,444,451,454,
%U 468,476,493,542,601,634,642,653,657,680,705,734,764,783,787,856,867,873,915,942,945,953,964,971,1013,1022,1044,1054,1058,1070
%N Numbers n such that Phi(45,n) is prime, where Phi is the cyclotomic polynomial.
%H G. C. Greubel, <a href="/A250192/b250192.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1000], PrimeQ[Cyclotomic[45, #]] &] (* _Vincenzo Librandi_, Jan 16 2015 *)
%o (PARI) {is(n)=isprime(polcyclo(45,n))};
%o for(n=1,1000, if(is(n)==1, print1(n, ", "))) \\ _G. C. Greubel_, May 18 2018
%Y Cf. A246392.
%K nonn
%O 1,1
%A _R. J. Mathar_, Jan 12 2015