A024673 Position of 1 + n^3 in A024670 (distinct sums of cubes of distinct positive integers).

1, 2, 4, 7, 11, 16, 21, 28, 35, 43, 52, 61, 73, 84, 97, 109, 124, 140, 155, 173, 190, 210, 228, 250, 271, 292, 316, 338, 365, 391, 417, 444, 472, 501, 531, 560, 593, 626, 659, 694, 728, 765, 802, 842, 880, 919, 960, 1001, 1045, 1086, 1131, 1176, 1222, 1268, 1313

Offset: 2

Author

Clark Kimberling

Keywords

• nonn

Links

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

Programs

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

Extensions

Offset corrected by Sean A. Irvine, Jul 19 2019