|
%I #17 Jan 04 2019 04:07:15
%S 1,10,65,330,1430,5510,19395,63440,195250,570570,1594315,4283270,
%T 11113440,27949580,68340360,162880080,379227010,864153940,1930443705,
%U 4233724000,9127235430,19364099520,40470110005,83395632580,169581447000,340533848010
%N Coefficients in the expansion of C^2/B^10, in Watson's notation of page 106.
%H Seiichi Manyama, <a href="/A160458/b160458.txt">Table of n, a(n) for n = 0..1000</a>
%H Watson, G. N., <a href="http://www.digizeitschriften.de/dms/resolveppn/?PID=GDZPPN002174499">Ramanujans Vermutung ueber Zerfaellungsanzahlen.</a> J. Reine Angew. Math. (Crelle), 179 (1938), 97-128. See the expression C^2/B^10.
%F See Maple code for formula.
%F a(n) = Sum_{k=0..n} A277212(k)*A277212(n-k). - _Seiichi Manyama_, Nov 27 2016
%e G.f.: 1+10*q^24+65*q^48+330*q^72+1430*q^96+5510*q^120+19395*q^144+...
%p read format;
%p M1:=1200:
%p fm:=mul(1-x^n,n=1..M1):
%p A:=x^(1/5)*subs(x=x^(24/5),fm):
%p B:=x*subs(x=x^24,fm):
%p C:=x^5*subs(x=x^120,fm):
%p t1:=C^2/B^10;
%p t2:=series(t1,x,M1);
%p t3:=subs(x=y^(1/24),t2);
%p t4:=series(t3,y,M1/24);
%p t5:=seriestolist(t4); # A160458
%o (PARI) x='x+O('x^66); Vec((eta(x^5)/eta(x)^5)^2) \\ _Joerg Arndt_, Nov 27 2016
%Y Cf. A160459, A277212.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Nov 13 2009
|
