A340978 Number of ways to write n as an ordered sum of 5 positive cubes.

1, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, 10, 0, 0, 0, 0, 5, 0, 5, 0, 0, 0, 0, 20, 0, 1, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0, 10, 0, 5, 0, 0, 0, 0, 30, 0, 0, 0, 5, 0, 0, 30, 0, 0, 0, 20, 0, 0, 10, 0, 0, 0, 30, 10, 0, 0, 0, 0, 0, 20, 20, 0, 0, 0, 20, 0, 5, 10

Offset

5,8

Links

Robert Israel, Table of n, a(n) for n = 5..10000

Index entries for sequences related to sums of cubes

Formula

G.f.: (Sum_{k>=1} x^(k^3))^5.

Maple

b:= proc(n, t) option remember;
      `if`(n=0, `if`(t=0, 1, 0), `if`(t<1, 0, add((s->
      `if`(s>n, 0, b(n-s, t-1)))(j^3), j=1..iroot(n, 3))))
    end:
a:= n-> b(n, 5):
seq(a(n), n=5..97);  # Alois P. Heinz, Feb 01 2021

Mathematica

nmax = 97; CoefficientList[Series[Sum[x^(k^3), {k, 1, Floor[nmax^(1/3)] + 1}]^5, {x, 0, nmax}], x] // Drop[#, 5] &

Crossrefs

Cf. A000578, A010057, A025458, A051344, A173679, A280618, A340977, A340979, A340980, A340981, A340982, A340983.

Sequence in context: A236239 A047752 A088194 * A048894 A047766 A336881

Adjacent sequences: A340975 A340976 A340977 * A340979 A340980 A340981

Keyword

nonn

Author

Ilya Gutkovskiy, Feb 01 2021

Status

approved