|
%I #7 May 14 2017 22:50:55
%S 2,6,12,15,21,50,85,100,182,210,215,364,553,560,854,931,1120,1870,
%T 2058,2422,2653,4477,6369,7667,10373,10934,13794,14377,15411,20163,
%U 25542,27423,28094,34398,52275,59085,85170,115362,131690,138944,143143,154323,248761,265850,271040
%N Records in A240751.
%H Robert G. Wilson v, <a href="/A285312/b285312.txt">Table of n, a(n) for n = 1..396</a>
%t (* first run the Mmca in A240751, then *) records[s_List] := Block[{k = 1, lmt = 1 + Length@s, lst = {}, mx = 0}, While[k < lmt, If[s[[k]] > mx, mx = s[[k]]; AppendTo[lst, mx]]; k++]; lst]; records[ Array[f, 250000]]
%Y Cf. A240751.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 17 2017
|
