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 A104085 #7 Jul 19 2015 09:58:58
%S A104085 1,2,11,26,47,72,99,132,167,206,251,300,351,406,463,526,591,660,735,
%T A104085 812,893,978,1065,1156,1249,1344,1443
%N A104085 Coefficient list length of Poincaré-like polynomials made from A047845, indices of odd nonprimes (group dimension equivalent plus one).
%C A104085 There is a possibility that these polynomials also represent groups?
%F A104085 P(m)=Product[1 + t^(2*A047845(n) + 1), {n, 1, m}] a(n) =Length[CoefficientList[P(n),x]]
%t A104085 (* Make A047845*) a = Flatten[Table[If[PrimeQ[2*n + 1] == False, n, {}], {n, 0, 50}]]; (* find lengths of polynomials*) Table[Length[CoefficientList[Product[1 + t^(2*a[[n]] + 1), {n, 1, m}], t]], { m, 0, Length[a]}]
%Y A104085 Cf. A047845.
%K A104085 nonn,uned
%O A104085 1,2
%A A104085 _Roger L. Bagula_, May 16 2007