|
%I #14 Jun 29 2020 17:46:39
%S 0,1,4,9,19,30,52,70,107,136,191,226,314,352,463,523,664,717,919,964,
%T 1205,1282,1546,1603,1992,2009,2414,2504,2958,2974,3606,3553,4223,
%U 4273,4936,4912,5885,5685,6634,6654,7664,7454,8822,8454,9845
%N Expansion of series related to Liouville's Last Theorem: g.f. Sum_{t>0} (-1)^(t+1) *x^(t*(t+1)/2) / ( (1-x^t)^3 *Product_{i=1..t} (1-x^i) ).
%H G. E. Andrews, <a href="http://www.mat.univie.ac.at/~slc/s/s42andrews.html">Some debts I owe</a>, Séminaire Lotharingien de Combinatoire, Paper B42a, Issue 42, 2000; see (7.4).
%p Mk := proc(k) -1*add( (-1)^n*q^(n*(n+1)/2)/(1-q^n)^k/mul(1-q^i,i=1..n), n=1..101): end; # with k=3
%Y Cf. A000005 (k=1), A059819 (k=2), A059820 (k=3), ..., A059825 (k=8).
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Feb 24 2001
|
