OFFSET
1,1
COMMENTS
Phi(8,k) = k^4 + 1.
MATHEMATICA
prim = {}; Do[prim = Join[prim, Complement[First /@ FactorInteger[Cyclotomic[8, k]], prim]], {k, 1000}]; prim
PROG
(PARI) lista(nn) = {vs = []; for (n=1, nn, vp = factor(polcyclo(8, n))[, 1]; for (i=1, #vp, if (!vecsearch(vs, vp[i]), print1(vp[i], ", "); vs = vecsort(concat(vs, vp[i]), , 8); ); ); ); } \\ Michel Marcus, Mar 20 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Mar 16 2015
STATUS
approved