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,2

Links

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

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

Crossrefs

Sequence in context: A025718 A022783 A025708 * A002789 A083204 A061784

Adjacent sequences: A024670 A024671 A024672 * A024674 A024675 A024676

Keyword

nonn

Author

Clark Kimberling

Extensions

Offset corrected by Sean A. Irvine, Jul 19 2019

Status

approved