LINKS
Robert Israel, <a href="/A024673/b024673_1.txt">Table of n, a(n) for n = 2..10000</a>
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A024673
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Position of 1 + n^3 in A024670 (distinct sums of cubes of distinct positive integers).
(history; published version)
(history; published version)
STATUS
reviewed
approved
STATUS
proposed
reviewed
STATUS
editing
proposed
LINKS
Robert Israel, <a href="/A024673/b024673_1.txt">Table of n, a(n) for n = 2..10000</a>
MAPLE
with(priqueue):
initialize(PQ):
insert([-9, 1, 2], PQ): v:= 0:
R:= NULL: count:= 0: i:= 0:
while count < 100 do
t:= extract(PQ);
w:= -t[1];
if floor(w) > v then i:= i+1; v:= floor(w) fi;
if t[2] = 1 then R:= R, i; count:= count+1 fi;
wp:= w + (t[3]+1)^3 - t[3]^3;
insert([-wp, t[2], t[3]+1], PQ);
if t[3] = t[2]+1 then
wp:= t[3]^3 + (t[3]+1)^3 + 1/10;
insert([-wp, t[3], t[3]+1], PQ);
fi
od:
R; # Robert Israel, Jan 21 2024
STATUS
approved
editing
STATUS
proposed
approved
STATUS
editing
proposed
AUTHOR
Clark Kimberling (ck6(AT)evansville.edu)
KEYWORD
nonn,new
nonn
AUTHOR
Clark Kimberling (ck6@cedar.(AT)evansville.edu)