login
A256145
Primitive prime factors of the cyclotomic polynomial sequence Phi(8,k) in the order in which they occur.
3
2, 17, 41, 257, 313, 1297, 1201, 241, 193, 73, 137, 7321, 89, 233, 14281, 937, 1489, 65537, 41761, 113, 929, 3833, 160001, 97241, 3209, 139921, 331777, 11489, 26881, 6481, 614657, 353641, 3361, 409, 1129, 61681, 97, 6113, 1336337, 750313, 98801, 10529, 50857
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