[go: up one dir, main page]

login
Revision History for A023358 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Number of compositions into sums of cubes.
(history; published version)
#28 by Alois P. Heinz at Fri Oct 27 19:24:03 EDT 2023
STATUS

editing

approved

#27 by Alois P. Heinz at Fri Oct 27 19:24:01 EDT 2023
LINKS

T. D. Noe and Alois P. Heinz, <a href="/A023358/b023358.txt">Table of n, a(n) for n = 0..1000</a> (first 501 terms from T. D. Noe)

STATUS

approved

editing

#26 by Alois P. Heinz at Sat Nov 11 16:43:38 EST 2017
STATUS

proposed

approved

#25 by Jon E. Schoenfield at Sat Nov 11 16:42:38 EST 2017
STATUS

editing

proposed

#24 by Jon E. Schoenfield at Sat Nov 11 16:42:33 EST 2017
FORMULA

G.f.: 1 / (1 - sum(Sum_{n>=1, } x^(n^3) ) ). [_- _Joerg Arndt_, Mar 30 2014]

STATUS

approved

editing

#23 by Bruno Berselli at Wed Apr 08 06:45:03 EDT 2015
STATUS

proposed

approved

#22 by Jean-François Alcover at Wed Apr 08 06:43:11 EDT 2015
STATUS

editing

proposed

#21 by Jean-François Alcover at Wed Apr 08 06:43:03 EDT 2015
MATHEMATICA

a[n_] := a[n] = If[n==0, 1, If[n<0, 0, Sum[a[n-i^3], {i, 1, Floor[n^(1/3)]}]]]; Table[a[n], {n, 0, 80}] (* Jean-François Alcover, Apr 08 2015, after Alois P. Heinz *)

STATUS

approved

editing

#20 by Alois P. Heinz at Mon Sep 08 07:52:10 EDT 2014
STATUS

editing

approved

#19 by Alois P. Heinz at Mon Sep 08 07:52:02 EDT 2014
MAPLE

end:

end: seq(a(n), n=0..80); # Alois P. Heinz, Sep 08 2014