A250186 - OEIS

%I #12 May 21 2018 03:23:21

%S 14,33,39,55,112,130,132,138,168,176,179,186,189,195,210,246,259,264,

%T 310,318,346,417,431,467,478,480,534,545,564,567,661,671,741,744,749,

%U 757,786,794,804,825,851,866,911,948,955,962,976,992,1014,1033,1042,1082,1109,1161,1193,1220,1244,1260,1268,1278,1313,1414,1437

%N Numbers n such that Phi(35,n) is prime, where Phi is the cyclotomic polynomial.

%H G. C. Greubel, <a href="/A250186/b250186.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[1500], PrimeQ[Cyclotomic[35, #]] &] (* _Vincenzo Librandi_, Jan 16 2015 *)

%o (PARI) {is(n)=isprime(polcyclo(35,n))};

%o for(n=1,1000, if(is(n), print1(n, ", "))) \\ _G. C. Greubel_, May 20 2018

%Y Cf. A246392.

%K nonn

%O 1,1

%A _R. J. Mathar_, Jan 12 2015