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,1

Links

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

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

Adjacent sequences: A285309 A285310 A285311 * A285313 A285314 A285315

Keyword

nonn

Author

Robert G. Wilson v, Apr 17 2017

Status

approved