A285312 Records in A240751.

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

Author

Robert G. Wilson v, Apr 17 2017

Keywords

• nonn

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..396

Crossrefs

Cf. A240751.

Programs

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]]