A138925 Indices k such that A020504(k)=Phi[k](-5) is prime, where Phi is a cyclotomic polynomial.
5, 6, 12, 14, 22, 24, 26, 28, 45, 48, 55, 56, 67, 88, 92, 94, 98, 99, 101, 103, 108, 114, 116, 120, 229, 236, 248, 254, 265, 282, 288, 298, 322, 347, 362, 384, 399, 420, 500, 536, 567, 615, 620, 714, 835, 992, 1047, 1064, 1238, 1794, 1858, 1962, 2313, 2397
Offset: 1
Keywords
Links
- Robert Price, Table of n, a(n) for n = 1..114
- Yves Gallot, Cyclotomic polynomials and prime numbers
Programs
-
Mathematica
Select[ Range[ 2000], PrimeQ[ Cyclotomic[#, -5]] &] (* Robert G. Wilson v, Mar 25 2012 *)
-
PARI
for( i=1,999, ispseudoprime( polcyclo(i,-5)) && print1( i",")) /* use ...subst(polcyclo(i),x,-5)... in PARI < 2.4.2 */
Extensions
a(53)-a(54) from Robert Price, Apr 05 2012
Comments