OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1000], PrimeQ[Cyclotomic[#, -8]] &]
PROG
(PARI) for( i=1, 999, ispseudoprime( polcyclo(i, -8)) && print1( i", ")) /* use ...subst(polcyclo(i), x, -8)... in PARI < 2.4.2 */
CROSSREFS
KEYWORD
nonn,more
AUTHOR
M. F. Hasler, Apr 03 2008
EXTENSIONS
a(18)-a(42) from Robert Price, Mar 25 2012
STATUS
approved