A020999 Conjectured number of irreducible multiple zeta values of depth n and weight 3n (confirmed up to n=7).

1, 0, 0, 1, 1, 1, 1, 1, 2, 2, 3, 3, 5, 6, 8, 10, 14, 17, 24, 30, 41, 53, 72, 93, 126, 165, 222, 293, 395, 522, 704, 936, 1259, 1681, 2263, 3027, 4079, 5470, 7371, 9906, 13361, 17980, 24271, 32712, 44182, 59626, 80598, 108879, 147285, 199165

Offset

0,9

Links

Table of n, a(n) for n=0..49.

D. J. Broadhurst, Conjectured enumeration of irreducible multiple zeta values, from knots and Feynman diagrams

R. J. Mathar, Hardy-Littlewood constants embedded into infinite products over all positive integers, sequence gamma_{3,j}^(A).

Formula

Product_n (1-x^n)^{a(n)} = 1-x-x^4; equivalently, a(n) = (1/n) sum_{ d divides n } mu(n/d) A014097(d).

Mathematica

max = 50; ClearAll[a]; coes = CoefficientList[ Series[ Product[ (1-x^n)^a[n-1], {n, 0, max}] - (1-x-x^4), {x, 0, max}] /. 0^_ -> 1, x]; eq = Rest[ Thread[ coes == 0]]; s[1] = Solve[ eq[[1]], a[0]][[1]]; a[0] = a[0] /. s[1][[1]]; Print[a[0]]; Do[ eq = Rest[eq] /. s[n]; s[n+1] = Solve[ eq[[1]], a[n]][[1]]; a[n] = a[n] /. s[n+1][[1]]; Print[a[n]], {n, 1, max-1}]; A020999 = Table[ a[n], {n, 0, max-1}](* From Jean-François Alcover, Jan 31 2012, after formula *)

Crossrefs

Cf. A014097.

Sequence in context: A035937 A240201 A274158 * A309712 A079955 A192928

Adjacent sequences: A020996 A020997 A020998 * A021000 A021001 A021002

Keyword

nonn,nice

Author

David Broadhurst

Status

approved