A236244 Records in A235598.
3, 4, 5, 12, 15, 24, 25, 30, 80, 420, 1860, 146340, 292680, 3031080, 6355440, 202025100, 404050200, 674215920, 1309133280, 1759047480, 3141424023360, 6282848046720, 19013977277880, 2604166475512980, 295127694592600800, 1528966300926585360
Offset: 1
Keywords
Programs
-
Mathematica
(* run the Mmca in A235598 *); k = 1; lsu = {}; mx = 0; While[k < 435000, If[lst[[k]] > mx, mx = lst[[k]]; Print[mx]; AppendTo[lsu, mx]]; k++]; lsu
Comments