|
%I #34 Nov 14 2021 02:58:16
%S 1,2,5,9,11,21,25,30,39,59,71,96,100,115,160,178,197,217,221,243,265,
%T 322,374,397,425,485,551,583,618,653,690,727,887,889,932,976,1023,
%U 1070,1117,1166,1215,1264,1314,1418,1588,1650,1712,1774,1836,1898,1960,2024,2088
%N Indices of records in A342585.
%H Rémy Sigrist, <a href="/A347305/b347305.txt">Table of n, a(n) for n = 1..25000</a> (first 4178 terms from Michael De Vlieger)
%H Rémy Sigrist, <a href="/A347305/a347305.txt">C program for A347305</a>
%H <a href="/index/In#inventory">Index entries for sequences related to the inventory sequence</a>
%t 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 *)
%o (C) See Links section.
%Y Cf. A342585, A343878, A348782 (the records).
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Aug 31 2021
%E Definition corrected by _N. J. A. Sloane_, Nov 13 2021
%E b-file corrected by _Michael De Vlieger_, Nov 13 2021
|
