%I #12 May 19 2018 02:02:43
%S 5,7,10,16,17,39,41,51,55,70,96,97,104,132,136,137,148,182,195,206,
%T 216,227,234,236,245,262,267,278,283,287,305,310,331,361,362,380,384,
%U 409,410,411,423,438,446,464,473,495,522,549,561,564,578,587,591,592,602,619,622,633,665,679,687,714,741,759,777
%N Numbers n such that Phi(48,n) is prime, where Phi is the cyclotomic polynomial.
%H G. C. Greubel, <a href="/A250194/b250194.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[800], PrimeQ[Cyclotomic[48, #]] &] (* _Vincenzo Librandi_, Jan 17 2015 *)
%o (PARI) {is(n)=isprime(polcyclo(48,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