A355367 Maximal LCM of six positive integers with sum n.
1, 2, 3, 6, 6, 12, 15, 30, 30, 60, 60, 84, 105, 210, 210, 420, 420, 420, 420, 840, 840, 1260, 1260, 2310, 2310, 4620, 4620, 5460, 5460, 9240, 9240, 13860, 13860, 16380, 16380, 30030, 27720, 60060, 32760, 40040, 60060, 120120, 60060, 180180, 120120, 157080, 120120, 360360
Offset: 6
Keywords
Crossrefs
Programs
-
Mathematica
Table[Max[LCM@@@IntegerPartitions[n,{6}]],{n,6,60}] (* Harvey P. Dale, Jun 23 2023 *)
-
PARI
a(n) = { my (v=0); forpart(p=n, v=max(v, lcm(Vec(p))),, [6,6]); v } \\ Rémy Sigrist, Jul 01 2022