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

%I #13 Mar 22 2015 17:59:00

%S 2,17,41,257,313,1297,1201,241,193,73,137,7321,89,233,14281,937,1489,

%T 65537,41761,113,929,3833,160001,97241,3209,139921,331777,11489,26881,

%U 6481,614657,353641,3361,409,1129,61681,97,6113,1336337,750313,98801,10529,50857

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

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

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

%o (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

%Y Cf. A005529, A096171, A248874, A256144.

%K nonn

%O 1,1

%A _Robert Price_, Mar 16 2015