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 A107615 #7 Jul 19 2015 09:59:23
%S A107615 1,2,7,18,31,48,71,96,125,158,193,232,273,316,363,416,475,536,599,664,
%T A107615 731,802,875,952,1033,1116,1201,1290,1383,1478,1579
%N A107615 Coefficient list length of Poincaré-like polynomials made from A047845, indices of 4*n+1 nonprimes as the m(i) exponents.
%F A107615 P(m) = Product[1 + t^(2*A045751(n) + 1), {n, 1, m}] a(n) = Length[CoefficientList[P(n),x]].
%t A107615 a = Flatten[Table[If[PrimeQ[4*n + 1] == False, n, {}], {n, 0, 50}]]; Table[Length[CoefficientList[Product[1 + t^(2*a[[n]] + 1), {n, 1, m}], t]], { m, 0, Length[a]}]
%Y A107615 Cf. A045751.
%K A107615 nonn,uned
%O A107615 1,2
%A A107615 _Roger L. Bagula_, May 16 2007