|
%I #5 Sep 10 2018 06:12:02
%S 1,1,2,3,6,6,12,18,24,36,54,72,108,162,216,324,486,648,972,1458,1944,
%T 2916,4374,5832,8748,13122,17496,26244,39366,52488,78732,118098,
%U 157464,236196,354294,472392,708588,1062882,1417176,2125764,3188646,4251528,6377292
%N Maximum product of an integer partition of n with relatively prime parts.
%C After a(7), this appears to be the same as A319054.
%t Table[Max[Times@@@Select[IntegerPartitions[n],GCD@@#==1&]],{n,20}]
%Y Cf. A000740, A000792, A000793, A000837, A001414, A007916, A100953, A281116, A289508, A289509, A296302, A319054, A319057.
%K nonn
%O 1,3
%A _Gus Wiseman_, Sep 09 2018
|
