login
Indices of records in A342585.
4

%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