|
%I #17 May 21 2018 03:23:07
%S 2,3,5,6,10,13,14,15,18,25,26,27,31,34,37,39,40,42,44,46,49,50,53,59,
%T 62,63,65,68,69,75,76,77,83,87,99,100,102,104,107,110,142,152,161,166,
%U 174,175,184,187,188,191,192,199,204,207,208,213,215,222,224,227,238,244,245,247,250,256,259,263,264,265,268,274,279,286,289,303,310,311,312,314,327,332,337,339,350,353,363,366
%N Numbers n such that Phi_24(n) is prime, where Phi is the cyclotomic polynomial.
%H G. C. Greubel, <a href="/A250179/b250179.txt">Table of n, a(n) for n = 1..10000</a>
%t a250179[n_] := Select[Range[n], PrimeQ@Cyclotomic[24, #] &]; a250179[366] (* _Michael De Vlieger_, Dec 25 2014 *)
%o (PARI) {is(n)=isprime(polcyclo(24,n))};
%o for(n=1,1000, if(is(n), print1(n, ", "))) \\ _G. C. Greubel_, May 20 2018
%Y See A250177 for references.
%K nonn
%O 1,1
%A _Eric Chen_, Dec 24 2014
|
