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 A089010 #10 Dec 26 2018 16:53:36 %S A089010 1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0, %T A089010 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, %U A089010 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 %N A089010 a(n) = 1 if n is an exponent of the Weyl group W(E_8), 0 otherwise. %C A089010 The exponents are 1, 7, 11, 13, 17, 19, 23, 29. The point of this sequence is that a similar generating function gives the exponents for any finite Coxeter group. %H A089010 Antti Karttunen, <a href="/A089010/b089010.txt">Table of n, a(n) for n = 1..10000</a> %H A089010 <a href="/index/Ch#char_fns">Index entries for characteristic functions</a> %F A089010 G.f.: x*(1-x^20)*(1-x^24)/((1-x^6)*(1-x^10)). %t A089010 PadRight[CoefficientList[Series[x(1-x^20)(1-x^24)/((1-x^6)(1-x^10)),{x,0,120}],x],120,0] (* _Harvey P. Dale_, May 15 2018 *) %o A089010 (PARI) Vec(x*(1-x^20)*(1-x^24)/((1-x^6)*(1-x^10)) + O(x^90)) \\ _Michel Marcus_, Aug 19 2015 %Y A089010 Cf. A005776, A089011. %K A089010 easy,nonn %O A089010 1,1 %A A089010 _Paul Boddington_, Nov 03 2003