|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|