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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 17 2017
STATUS
approved