|
| |
|
|
A138920
|
|
Indices k such that A020509(k)=Phi[k](-10) is prime, where Phi is a cyclotomic polynomial.
|
|
18
| |
|
|
4, 5, 7, 12, 19, 24, 31, 36, 38, 46, 48, 53, 67, 75, 78, 120, 186, 196, 293, 320, 327, 369, 634, 641, 713, 770, 931
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| "Unique [period] primes" (A040017) are often of the form Phi[k](10) or Phi[k](-10).
|
|
|
LINKS
| C. Caldwell, Unique Primes.
Index entries for cyclotomic polynomials, values at X
|
|
|
PROG
| (PARI) for( i=1, 999, is/*pseudo*/prime( polcyclo(i, -10)) && print1( i", ")) /* for PARI < 2.4.2 use ...subst(polcyclo(i, x), x, -10)... */
|
|
|
CROSSREFS
| Cf. A019328, A040017, A138940.
Sequence in context: A160934 A032390 A112918 * A048224 A064237 A139373
Adjacent sequences: A138917 A138918 A138919 * A138921 A138922 A138923
|
|
|
KEYWORD
| nonn,more
|
|
|
AUTHOR
| M. F. Hasler (www.univ-ag.fr/~mhasler), Apr 03 2008
|
| |
|
|
