OFFSET
6,2
MATHEMATICA
Table[Max[LCM@@@IntegerPartitions[n, {6}]], {n, 6, 60}] (* Harvey P. Dale, Jun 23 2023 *)
PROG
(PARI) a(n) = { my (v=0); forpart(p=n, v=max(v, lcm(Vec(p))), , [6, 6]); v } \\ Rémy Sigrist, Jul 01 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 29 2022
STATUS
approved