|
|
A250180
|
|
Numbers n such that Phi_25(n) is prime, where Phi is the cyclotomic polynomial.
|
|
2
|
|
|
1, 22, 33, 39, 43, 62, 74, 134, 142, 167, 212, 238, 287, 313, 335, 369, 414, 415, 418, 432, 509, 604, 679, 697, 770, 782, 815, 859, 874, 895, 897, 924, 1039, 1048, 1070, 1085, 1134, 1145, 1170, 1177, 1212, 1239, 1240, 1262, 1339, 1347, 1364, 1374, 1407, 1413, 1414, 1449
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a250180[n_] := Select[Range[n], PrimeQ@Cyclotomic[25, #] &]; a250180[256]
|
|
PROG
|
(PARI) isok(n) = isprime(polcyclo(25, n)); \\ Michel Marcus, Dec 27 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|