login
A059820
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) ).
7
0, 1, 4, 9, 19, 30, 52, 70, 107, 136, 191, 226, 314, 352, 463, 523, 664, 717, 919, 964, 1205, 1282, 1546, 1603, 1992, 2009, 2414, 2504, 2958, 2974, 3606, 3553, 4223, 4273, 4936, 4912, 5885, 5685, 6634, 6654, 7664, 7454, 8822, 8454, 9845
OFFSET
0,3
LINKS
G. E. Andrews, Some debts I owe, Séminaire Lotharingien de Combinatoire, Paper B42a, Issue 42, 2000; see (7.4).
FORMULA
a(n) = ( 3*A055507(n-1) + 3*A191831(n) + A191829(n) + 2*sigma_0(n) + 3*sigma(n) + sigma_2(n) )/6. - Seiichi Manyama, Jul 26 2024
MAPLE
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
PROG
(PARI) D(x, y, n) = sum(k=1, n-1, sigma(k, x)*sigma(n-k, y));
D000(n) = sum(k=1, n-1, sigma(k, 0)*D(0, 0, n-k));
a(n) = if(n==0, 0, (3*D(0, 0, n)+3*D(0, 1, n)+D000(n)+2*sigma(n, 0)+3*sigma(n)+sigma(n, 2))/6); \\ Seiichi Manyama, Jul 26 2024
CROSSREFS
Cf. A000005 (k=1), A059819 (k=2), A059820 (k=3), A059821(k=4), A059822 (k=5), A059823 (k=6), A059824 (k=7), A059825 (k=8).
Cf. A000203, A001157, A055507, A191829 (Andrews's D_{0,0,0}(n)), A191831 (Andrews's D_{0,1}(n)).
Sequence in context: A199972 A327753 A100448 * A180784 A015618 A086733
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 24 2001
STATUS
approved