%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