OFFSET
1,1
COMMENTS
Phi(7,k) = k^6 + k^5 + k^4 + k^3 + k^2 + k + 1.
LINKS
Robert Price, Table of n, a(n) for n = 1..1511
MATHEMATICA
prim = {}; Do[prim = Join[prim, Complement[First /@ FactorInteger[Cyclotomic[7, k]], prim]], {k, 1000}]; prim
PROG
(PARI) lista(nn) = {vs = []; for (n=1, nn, vp = factor(polcyclo(7, 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