|
%I #16 Nov 14 2021 00:32:55
%S 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,
%T 32,33,35,37,39,40,41,44,45,47,50,52,55,56,57,58,59,60,62,64,67,69,70,
%U 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
%N Records in A342585.
%C Although initially this contains most numbers, eventually the terms become sparse.
%C 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)).
%H Rémy Sigrist, <a href="/A348782/b348782.txt">Table of n, a(n) for n = 1..25000</a> (first 178 terms from N. J. A. Sloane)
%H Rémy Sigrist, <a href="/A348782/a348782.txt">C program for A348782</a>
%H <a href="/index/In#inventory">Index entries for sequences related to the inventory sequence</a>
%t 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 *)
%o (C) See Links section.
%Y Cf. A342585, A347305 (indices).
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Nov 13 2021
|
