A250185 Numbers n such that Phi(34,n) is prime, where Phi is the cyclotomic polynomial.
2, 7, 13, 17, 19, 41, 48, 58, 59, 66, 86, 129, 133, 139, 143, 146, 149, 166, 167, 231, 268, 270, 299, 328, 359, 387, 397, 408, 469, 523, 527, 534, 541, 553, 555, 569, 582, 583, 600, 608, 634, 664, 667, 672, 673, 709, 714, 720, 725, 733, 746, 759, 776, 802, 808, 822, 860, 870, 877, 892, 896, 902, 911, 962, 970, 975, 1034, 1050, 1051, 1082
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A246392.
Programs
-
Magma
[n: n in [1..2000]| IsPrime((n^17+1) div (n+1))]; // Vincenzo Librandi, Jan 15 2015
-
Mathematica
Select[Range[2000], PrimeQ[(#^17 + 1) / (# + 1)] &] (* Vincenzo Librandi, Jan 15 2015 *)
-
PARI
is(n)=isprime(polcyclo(34,n)) \\ Charles R Greathouse IV, Sep 08 2015