|
|
A250190
|
|
Numbers n such that Phi(42,n) is prime, where Phi is the cyclotomic polynomial.
|
|
2
|
|
|
2, 6, 8, 11, 23, 35, 41, 49, 58, 65, 85, 88, 97, 107, 111, 139, 144, 161, 170, 197, 214, 217, 223, 230, 238, 247, 274, 298, 301, 323, 382, 389, 393, 398, 403, 427, 445, 452, 473, 480, 497, 511, 561, 575, 595, 601, 604, 606, 615, 629, 651, 652, 680, 685, 702, 725, 762, 770, 774, 781, 805, 814, 912, 918, 942, 987, 1030
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[1100], PrimeQ[Cyclotomic[42, #]] &] (* Vincenzo Librandi, Jan 16 2015 *)
|
|
PROG
|
(PARI) {is(n)=isprime(polcyclo(42, n))};
for(n=1, 1000, if(is(n)==1, print1(n, ", "))) \\ G. C. Greubel, May 18 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|