A348524 Number of compositions (ordered partitions) of n into two or more cubes.

0, 0, 1, 1, 1, 1, 1, 1, 1, 3, 4, 5, 6, 7, 8, 9, 11, 14, 18, 23, 29, 36, 44, 53, 64, 78, 96, 119, 150, 187, 232, 286, 351, 430, 527, 649, 802, 993, 1230, 1522, 1880, 2318, 2854, 3514, 4330, 5341, 6594, 8145, 10061, 12423, 15330, 18908, 23316, 28753, 35467, 43762

Offset

0,10

Links

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

Index entries for sequences related to sums of cubes

Maple

g:= proc(n) option remember;
     local i, m, t;
     m:= surd(n, 3);
     if m::integer then t:= 1; m:= m-1 else t:= 0; m:= floor(m) fi;
     t + add(procname(n-i^3), i=1..m)
end proc:
f:= proc(n) local m;
    m:= surd(n, 3);
    if m::integer then g(n)-1 else g(n) fi
end proc:
f(0):= 0:
map(f, [$0..100]);

Mathematica

g[n_] := g[n] = Module[{m, t}, m = n^(1/3); If[IntegerQ[m], t = 1; m = m - 1, t = 0; m = Floor[m]]; t + Sum[g[n - i^3], {i, 1, m}]];
f[n_] := Module[{m}, m = n^(1/3); If[IntegerQ[m], g[n]-1, g[n]]];
f[0] = 0;
Map[f, Range[0, 100]] (* Jean-François Alcover, Sep 19 2022, after Robert Israel *)

Crossrefs

Cf. A000578, A010057, A023358, A347805, A348522.

Sequence in context: A039113 A130399 A067026 * A096829 A265126 A039120

Adjacent sequences: A348521 A348522 A348523 * A348525 A348526 A348527

Keyword

nonn

Author

Ilya Gutkovskiy, Oct 21 2021

Status

approved