login
Maximal LCM of six positive integers with sum n.
6

%I #15 Jun 23 2023 13:22:25

%S 1,2,3,6,6,12,15,30,30,60,60,84,105,210,210,420,420,420,420,840,840,

%T 1260,1260,2310,2310,4620,4620,5460,5460,9240,9240,13860,13860,16380,

%U 16380,30030,27720,60060,32760,40040,60060,120120,60060,180180,120120,157080,120120,360360

%N Maximal LCM of six positive integers with sum n.

%H <a href="/index/Lc#lcm">Index entries for sequences related to lcm's</a>

%t Table[Max[LCM@@@IntegerPartitions[n,{6}]],{n,6,60}] (* _Harvey P. Dale_, Jun 23 2023 *)

%o (PARI) a(n) = { my (v=0); forpart(p=n, v=max(v, lcm(Vec(p))),, [6,6]); v } \\ _Rémy Sigrist_, Jul 01 2022

%Y Cf. A008881.

%Y Maximal LCM of k positive integers with sum n for k = 2..7: A129647 (k=2), A129648 (k=3), A129649 (k=4), A129650 (k=5), this sequence (k=6), A355403 (k=7).

%K nonn

%O 6,2

%A _Wesley Ivan Hurt_, Jun 29 2022