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 A022050 #12 Oct 16 2018 11:59:49 %S A022050 1,684,62054,1759704,21210156,140116184,658369608,2449182384, %T A022050 7597766246,20748447108,50601708504,114223115480,238352317656, %U A022050 472600643976,883678139136,1594639240368,2749536787500,4620722631088,7482364853310,11894205734280,18321074279384 %N A022050 Theta series of D_19 lattice. %D A022050 J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118. %H A022050 Seiichi Manyama, <a href="/A022050/b022050.txt">Table of n, a(n) for n = 0..1000</a> %t A022050 terms = 17; f[q_] = LatticeData["D19", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); DeleteCases[CoefficientList[s, q], 0][[1 ;; terms]] (* _Jean-François Alcover_, Jul 06 2017 *) %K A022050 nonn %O A022050 0,2 %A A022050 _N. J. A. Sloane_ %E A022050 More terms from _Seiichi Manyama_, Oct 16 2018