cp's OEIS Frontend

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.

A089010 a(n) = 1 if n is an exponent of the Weyl group W(E_8), 0 otherwise.

This page as a plain text file.
%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