|
|
A250188
|
|
Numbers n such that Phi(39,n) is prime, where Phi is the cyclotomic polynomial.
|
|
2
|
|
|
10, 23, 86, 240, 254, 284, 340, 369, 371, 378, 382, 407, 422, 448, 459, 574, 582, 613, 619, 667, 686, 703, 767, 769, 844, 851, 875, 881, 944, 987, 995, 1207, 1219, 1233, 1279, 1292, 1343, 1372, 1399, 1409, 1445, 1468, 1497, 1500, 1557, 1586, 1598, 1633, 1645, 1677, 1760, 1807, 1835
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[1900], PrimeQ[Cyclotomic[39, #]] &] (* Vincenzo Librandi, Jan 16 2015 *)
|
|
PROG
|
(PARI) {is(n)=isprime(polcyclo(39, n))};
for(n=1, 1000, if(is(n), print1(n, ", "))) \\ G. C. Greubel, May 20 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|