%I #5 Sep 30 2018 20:27:11
%S 0,1,2,2,3,3,4,3,4,4,5,4,6,5,6,4,7,6,8,6,8,6,9,6,9,7,8,8,10,9,11,6,10,
%T 8,12,9,12,9,12,9,13,12,14,10,12,10,15,9,16,12,14,12,16,12,15,12,16,
%U 11,17,12,18,12,16,9,18,15,19,14,18,16,20,12,21,13
%N Maximum number that can be obtained by iteratively adding or multiplying together parts of the integer partition with Heinz number n until only one part remains.
%C The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
%e a(30) = 9 because the maximum number that can be obtained starting with (3,2,1) is 3*(2+1) = 9.
%t ReplaceListRepeated[forms_,rerules_]:=Union[Flatten[FixedPointList[Function[pre,Union[Flatten[ReplaceList[#,rerules]&/@pre,1]]],forms],1]];
%t nexos[ptn_]:=If[Length[ptn]==0,{0},Union@@Select[ReplaceListRepeated[{Sort[ptn]},{{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x+y]],{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x*y]]}],Length[#]==1&]];
%t Table[Max[nexos[If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]]],{n,100}]
%Y Cf. A000792, A001970, A048249, A056239, A066739, A066815, A070960, A201163, A319850, A318948, A318949, A319841, A319855.
%K nonn
%O 1,3
%A _Gus Wiseman_, Sep 29 2018