A348782 Records in A342585.

0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 25, 26, 28, 30, 31, 32, 33, 35, 37, 39, 40, 41, 44, 45, 47, 50, 52, 55, 56, 57, 58, 59, 60, 62, 64, 67, 69, 70, 71, 72, 73, 74, 75, 76, 79, 81, 83, 84, 85, 86, 87, 90, 94, 96, 98, 99, 100, 101, 102, 103, 105, 109, 119, 129

Offset: 1

Author

N. J. A. Sloane, Nov 13 2021

Keywords

• nonn

Comments

Although initially this contains most numbers, eventually the terms become sparse.

It would be nice to have an estimate for the upper envelope of the Inventory Sequence A342585 (that is, for a curve through the points with coordinates (A347305(n), a(n))).

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..25000 (first 178 terms from N. J. A. Sloane)
• Rémy Sigrist, C program for A348782
• Index entries for sequences related to the inventory sequence

Crossrefs

Cf. A342585, A347305 (indices).

Programs

C

// See Links section.

Mathematica

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