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

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

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 *)

Prog

(C) See Links section.

Crossrefs

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

Sequence in context: A210510 A050904 A263637 * A343878 A057471 A295608

Adjacent sequences: A347302 A347303 A347304 * A347306 A347307 A347308

Keyword

nonn

Author

N. J. A. Sloane, Aug 31 2021

Extensions

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

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

Status

approved