|
%I #10 May 19 2018 02:02:03
%S 25,60,70,77,86,116,117,119,137,151,166,175,176,177,181,184,202,208,
%T 229,241,300,313,328,332,344,385,402,442,444,446,453,467,470,500,501,
%U 522,527,531,532,534,568,584,592,629,690,696,701,706,709,728,734,749,795,812,828,838,844,845,855,857,950,951,965,991,1009
%N Numbers n such that Phi(44,n) is prime, where Phi is the cyclotomic polynomial.
%H G. C. Greubel, <a href="/A250191/b250191.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1100], PrimeQ[Cyclotomic[44, #]] &] (* _Vincenzo Librandi_, Jan 16 2015 *)
%o (PARI) {is(n)=isprime(polcyclo(44,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
|
