|
%I #18 Nov 15 2022 13:54:38
%S 1,3,6,11,16,20,25,36,44,45,53,63,75,88,104,120,140,163,188,216,247,
%T 280,316,354,395,438,483,530,580,633,689,749,811,876,945,1017,1095,
%U 1178,1264,1352,1444,1539,1638,1743,1853,1967,2084,2206,2331,2461,2597,2737
%N Positions of records in A030717.
%H Michael De Vlieger, <a href="/A030722/b030722.txt">Table of n, a(n) for n = 1..1000</a>
%t nn = 120; c[_] = 0; r = k = a[1] = c[1] = 1; {1}~Join~Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]]; If[r < #, Set[r, #]; Sow[j + k]] &[a[j + k]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {nn}]][[-1, -1]] (* _Michael De Vlieger_, Nov 15 2022 *)
%Y Cf. A030717, A030721.
%K nonn
%O 1,2
%A _Clark Kimberling_
%E More terms and simpler title from _Sean A. Irvine_, Apr 08 2020
|
