A347305 Indices of records in A342585.

1, 2, 5, 9, 11, 21, 25, 30, 39, 59, 71, 96, 100, 115, 160, 178, 197, 217, 221, 243, 265, 322, 374, 397, 425, 485, 551, 583, 618, 653, 690, 727, 887, 889, 932, 976, 1023, 1070, 1117, 1166, 1215, 1264, 1314, 1418, 1588, 1650, 1712, 1774, 1836, 1898, 1960, 2024, 2088

Offset: 1

Author

N. J. A. Sloane, Aug 31 2021

Keywords

• nonn

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..25000 (first 4178 terms from Michael De Vlieger)
• Rémy Sigrist, C program for A347305
• Index entries for sequences related to the inventory sequence

Crossrefs

Cf. A342585, A343878, A348782 (the records).

Programs

C

// See Links section.

Mathematica

j = r = c[] = 0; {1}~Join~Reap[Do[k = 0; While[c[k] > 0, Set[m, c[k]]; c[m]++; j++; k++; If[m > r, Set[r, m]; Sow[j]]]; Set[m, c[k]]; c[m]++; j++, {i, 63}]][[-1, -1]] (* _Michael De Vlieger, Nov 13 2021 *)

Extensions

Definition corrected by N. J. A. Sloane, Nov 13 2021

b-file corrected by Michael De Vlieger, Nov 13 2021