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 A117133 #15 Jan 30 2021 01:51:41 %S A117133 3,14,52,78,133,248 %N A117133 Dimensions of the traditional Cartan exceptional group sequence A1, G2, F4, E6, E7, E8. %F A117133 P(n) = Poincare-Polynomial(n) = Product_{m=1..n} (1 + t^A129766(m)); a(n) = Length(CoefficientList(P(n),t)) - 1. %t A117133 a[0] = {1}; %t A117133 a[1] = {1, 5}; %t A117133 a[2] = {1, 5, 7, 11}; %t A117133 a[3] = {1, 4, 5, 7, 8, 11}; %t A117133 a[4] = {1, 5, 7, 9, 11, 13, 17}; %t A117133 a[5] = {1, 7, 11, 13, 17, 19, 23, 29}; %t A117133 b0 = Table[Length[CoefficientList[Expand[Product[(1 + t^(2*a[i][[n]] + 1)), {n, 1, Length[a[i]]}]], t]] - 1, {i, 0, 5}] %Y A117133 Cf. A129766. %K A117133 nonn,fini,full,uned %O A117133 1,1 %A A117133 _Roger L. Bagula_, May 17 2007