cp's OEIS Frontend

A288578 q-Expansion of wedge character chi^(2)(q).

%I A288578 #11 Jul 04 2017 06:46:35
%S A288578 1,2,5,9,18,31,55,91,151,240,381,587,900,1352,2018,2966,4332,6250,
%T A288578 8962,12725,17962,25147,35015,48414,66603,91071,123945,167786,226154,
%U A288578 303375,405337,539249,714740,943659,1241605,1627812,2127302,2770966,3598567
%N A288578 q-Expansion of wedge character chi^(2)(q).
%H A288578 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 A288578 chi := proc(l,e)
%p A288578     local gf,m,n,f;
%p A288578     gf := 0 ;
%p A288578     for m from 0 to e+1 do
%p A288578         f := 1;
%p A288578         for n from 1 to min(m+abs(l),e-m+1) do
%p A288578             f := f/(1-q^n) ;
%p A288578         end do:
%p A288578         for n from 1 to min(m,e-m+1) do
%p A288578             f := f/(1-q^n) ;
%p A288578         end do:
%p A288578         gf := gf+f*q^m ;
%p A288578     end do:
%p A288578     expand(gf) ;
%p A288578     coeftayl(%,q=0,e) ;
%p A288578 end proc:
%p A288578 A288578 := proc(n)
%p A288578     chi(2,n) ;
%p A288578 end proc:
%p A288578 for n from 0 do
%p A288578     printf("%d,\n",A288578(n)) ;
%p A288578 end do: # _R. J. Mathar_, Jul 04 2017
%Y A288578 Cf. A006330 (chi^(0)(q)), A001523 (chi^(1)(q)).
%K A288578 nonn
%O A288578 0,2
%A A288578 _N. J. A. Sloane_, Jul 01 2017