login
A138925
Indices k such that A020504(k)=Phi[k](-5) is prime, where Phi is a cyclotomic polynomial.
2
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,1
MATHEMATICA
Select[ Range[ 2000], PrimeQ[ Cyclotomic[#, -5]] &] (* Robert G. Wilson v, Mar 25 2012 *)
PROG
(PARI) for( i=1, 999, ispseudoprime( polcyclo(i, -5)) && print1( i", ")) /* use ...subst(polcyclo(i), x, -5)... in PARI < 2.4.2 */
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Apr 03 2008
EXTENSIONS
a(53)-a(54) from Robert Price, Apr 05 2012
STATUS
approved