This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A256144 #11 Mar 22 2015 17:58:43 %S A256144 3,73,757,19,829,2467,37,1063,262657,333667,1772893,80749,1609669,397, %T A256144 18973,541,21061,109,1270657,991,34327,523,29989,64008001,85775383, %U A256144 127,297613,7792003,2017,4987,5167,308933353,433,8209,444979,14437,41203,729027001 %N A256144 Primitive prime factors of the cyclotomic polynomial sequence Phi(9,k) in the order in which they occur. %C A256144 Phi(9,k) = k^6 + k^3 + 1. %H A256144 Robert Price, <a href="/A256144/b256144.txt">Table of n, a(n) for n = 1..1521</a> %t A256144 prim = {}; Do[prim = Join[prim, Complement[First /@ FactorInteger[Cyclotomic[9, k]], prim]], {k, 1000}]; prim %o A256144 (PARI) lista(nn) = {vs = []; for (n=1, nn, vp = factor(polcyclo(9,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 A256144 Cf. A005529, A248874. %K A256144 nonn %O A256144 1,1 %A A256144 _Robert Price_, Mar 16 2015