|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|