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

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

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]++, {i, 85}]], i][[-1, -1]] (* Michael De Vlieger, Nov 13 2021 *)

Prog

(C) See Links section.

Crossrefs

Cf. A342585, A347305 (indices).

Sequence in context: A332108 A316228 A353935 * A331119 A366169 A283970

Adjacent sequences: A348779 A348780 A348781 * A348783 A348784 A348785

Keyword

nonn

Author

N. J. A. Sloane, Nov 13 2021

Status

approved