login
A285312
Records in A240751.
1
2, 6, 12, 15, 21, 50, 85, 100, 182, 210, 215, 364, 553, 560, 854, 931, 1120, 1870, 2058, 2422, 2653, 4477, 6369, 7667, 10373, 10934, 13794, 14377, 15411, 20163, 25542, 27423, 28094, 34398, 52275, 59085, 85170, 115362, 131690, 138944, 143143, 154323, 248761, 265850, 271040
OFFSET
1,1
LINKS
MATHEMATICA
(* 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]]
CROSSREFS
Cf. A240751.
Sequence in context: A114103 A334308 A242336 * A065154 A354757 A230482
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 17 2017
STATUS
approved