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 A022045 #15 Oct 16 2018 08:37:28 %S A022045 1,364,16044,200928,1089452,4196920,12547808,31553344,70439852, %T A022045 142487436,268594872,476105504,800698080,1296257144,2022013760, %U A022045 3056208064,4507001772,6481076056,9123064524,12637846368,17190762680,22999441920,30453867808,39772497856,51254988512 %N A022045 Theta series of D_14 lattice. %D A022045 J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118. %H A022045 Seiichi Manyama, <a href="/A022045/b022045.txt">Table of n, a(n) for n = 0..10000</a> %H A022045 G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/D14.html">Home page for this lattice</a> %t A022045 terms = 20; f[q_] = LatticeData["D14", "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 A022045 nonn %O A022045 0,2 %A A022045 _N. J. A. Sloane_ %E A022045 More terms from _Seiichi Manyama_, Oct 16 2018