A256145 Primitive prime factors of the cyclotomic polynomial sequence Phi(8,k) in the order in which they occur.

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

Author

Robert Price, Mar 16 2015

Keywords

• nonn

Comments

Phi(8,k) = k^4 + 1.

Crossrefs

Cf. A005529, A096171, A248874, A256144.

Programs

Mathematica

prim = {}; Do[prim = Join[prim, Complement[First /@ FactorInteger[Cyclotomic[8, k]], prim]], {k, 1000}]; prim

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