cp's OEIS Frontend

A028512 Character of extremal vertex operator algebra of rank 16.

%I A028512 #23 Sep 23 2017 17:56:51
%S A028512 1,496,69752,2115008,34670620,394460000,3499148224,25817318016,
%T A028512 165011628166,939112182480,4853601292512,23116070653888,
%U A028512 102602164703800,428200065370144,1692346392263680,6371305129660032
%N A028512 Character of extremal vertex operator algebra of rank 16.
%D A028512 G. Hoehn, Selbstduale Vertexoperatorsuperalgebren und das Babymonster, Bonner Mathematische Schriften, Vol. 286 (1996), 1-85.
%H A028512 Vaclav Kotesovec, <a href="/A028512/b028512.txt">Table of n, a(n) for n = 0..10000</a> (terms 0..1000 from Seiichi Manyama)
%H A028512 G. Hoehn (gerald(AT)math.ksu.edu), Selbstduale Vertexoperatorsuperalgebren und das Babymonster, Doctoral Dissertation, Univ. Bonn, Jul 15 1995 (<a href="http://www.math.ksu.edu/~gerald/papers/dr.pdf">pdf</a>, <a href="http://www.math.ksu.edu/~gerald/papers/dr.ps.gz">ps</a>).
%F A028512 Square of A007245.
%F A028512 (q*j(q))^(2/3) where j(q) is the elliptic modular invariant. - _Seiichi Manyama_, Jul 15 2017
%F A028512 a(n) ~ exp(4*Pi*sqrt(2*n/3)) / (6^(1/4)*n^(3/4)). - _Vaclav Kotesovec_, Jul 15 2017
%t A028512 CoefficientList[Series[(QPochhammer[x, x^2]^8 + 256*x/QPochhammer[x, x^2]^16)^2, {x, 0, 20}], x] (* _Vaclav Kotesovec_, Jul 15 2017 *)
%t A028512 CoefficientList[Series[(65536 + x*QPochhammer[-1, x]^24)^2 / (2*QPochhammer[-1, x])^16, {x, 0, 20}], x] (* _Vaclav Kotesovec_, Sep 23 2017 *)
%Y A028512 Cf. A000521 (j(q)).
%Y A028512 (q*j(q))^(k/24): A289397 (k=-1), A106205 (k=1), A289297 (k=2), A289298 (k=3), A289299 (k=4), A289300 (k=5), A289301 (k=6), A289302 (k=7), A007245 (k=8), A289303 (k=9), A289304 (k=10), A289305 (k=11), A161361 (k=12), this sequence (k=16), A028513 (k=32), A028514 (k=40), A028515 (k=48).
%K A028512 nonn,easy
%O A028512 0,2
%A A028512 _N. J. A. Sloane_