%I #11 Jul 04 2017 06:46:35
%S 1,2,5,9,18,31,55,91,151,240,381,587,900,1352,2018,2966,4332,6250,
%T 8962,12725,17962,25147,35015,48414,66603,91071,123945,167786,226154,
%U 303375,405337,539249,714740,943659,1241605,1627812,2127302,2770966,3598567
%N q-Expansion of wedge character chi^(2)(q).
%H Shouvik Datta, M. R. Gaberdiel, W. Li, C. Peng, <a href="https://arxiv.org/abs/1606.07070">Twisted sectors from plane partitions</a>, arXiv preprint arXiv:1606.07070 [hep-th], 2016. See Sect. 2.1.
%p chi := proc(l,e)
%p local gf,m,n,f;
%p gf := 0 ;
%p for m from 0 to e+1 do
%p f := 1;
%p for n from 1 to min(m+abs(l),e-m+1) do
%p f := f/(1-q^n) ;
%p end do:
%p for n from 1 to min(m,e-m+1) do
%p f := f/(1-q^n) ;
%p end do:
%p gf := gf+f*q^m ;
%p end do:
%p expand(gf) ;
%p coeftayl(%,q=0,e) ;
%p end proc:
%p A288578 := proc(n)
%p chi(2,n) ;
%p end proc:
%p for n from 0 do
%p printf("%d,\n",A288578(n)) ;
%p end do: # _R. J. Mathar_, Jul 04 2017
%Y Cf. A006330 (chi^(0)(q)), A001523 (chi^(1)(q)).
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jul 01 2017
|