|
|
A138928
|
|
Indices n such that A020501(n) = phi(n)(-2) is prime, where Phi is a cyclotomic polynomial.
|
|
2
|
|
|
3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 23, 24, 26, 30, 31, 32, 34, 38, 39, 40, 43, 45, 49, 54, 56, 61, 62, 63, 66, 75, 79, 80, 85, 87, 98, 101, 117, 120, 122, 127, 130, 138, 154, 161, 167, 170, 178, 183, 184, 186, 187, 191, 192, 199, 205, 207, 208
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
While the sequence is not very interesting up to a(n)<300, there are only 4 values in the interval [400,599].
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[3, 1000], PrimeQ[ Cyclotomic[#, -2]] &] (* Robert G. Wilson v, Mar 25 2012 *)
|
|
PROG
|
(PARI) for( i=1, 999, isprime( polcyclo(i, -2)) && print1( i", ")) /* for PARI < 2.4.2 use ...subst(polcyclo(i), x, -2)...*/
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|