A355368 Maximal GCD of six positive integers with sum n.
1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 4, 1, 2, 3, 4, 1, 5, 1, 4, 3, 2, 5, 6, 1, 2, 3, 5, 1, 7, 1, 4, 5, 2, 1, 8, 7, 5, 3, 4, 1, 9, 5, 8, 3, 2, 1, 10, 1, 2, 9, 8, 5, 11, 1, 4, 3, 10, 1, 12, 1, 2, 5, 4, 11, 13, 1, 10, 9, 2, 1, 14, 5, 2, 3, 11, 1, 15, 13, 4, 3, 2
Offset: 6
Keywords
Crossrefs
Programs
-
Mathematica
a[n_] := GCD @@@ IntegerPartitions[n, {6}] // Max; Table[a[n], {n, 6, 100}] (* Jean-François Alcover, Sep 21 2022 *)