%I #9 Jul 13 2024 07:43:35
%S 0,2,3,2,5,5,7,2,3,7,11,7,13,9,8,2,17,8,19,9,10,13,23,7,5,15,3,11,29,
%T 10,31,2,14,19,12,10,37,21,16,9,41,12,43,15,11,25,47,7,7,12,20,17,53,
%U 8,16,11,22,31,59,12,61,33,13,2,18,16,67,21,26,14,71
%N Greatest sum of run-compression of a permutation of the prime factors of n.
%C We define the run-compression of a sequence to be the anti-run obtained by reducing each run of repeated parts to a single part. Alternatively, run-compression removes all parts equal to the part immediately to their left. For example, (1,1,2,2,1) has run-compression (1,2,1).
%F a(n) = A001414(n) iff n belongs to A335433 (the separable case, complement A335448), row-sums of A027746.
%e The prime factors of 24 are {2,2,2,3}, with permutations such as (2,2,3,2) whose run-compression sums to 7, so a(24) = 7.
%e The prime factors of 216 are {2,2,2,3,3,3}, with permutations such as (2,3,2,3,2,3) whose run-compression sums to 15, so a(216) = 15.
%t prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
%t Table[Max@@(Total[First/@Split[#]]& /@ Permutations[prifacs[n]]),{n,100}]
%Y Positions of 2 are A000079 (powers of two) except 1.
%Y Positions of 3 are A000244 (powers of three) except 1.
%Y For least instead of greatest sum of run-compression we have A008472.
%Y For prime indices instead of factors we have A373956.
%Y For number of runs instead of sum of run-compression we have A373957.
%Y A001221 counts distinct prime factors, A001222 with multiplicity.
%Y A003242 counts run-compressed compositions, i.e., anti-runs.
%Y A007947 (squarefree kernel) represents run-compression of multisets.
%Y A008480 counts permutations of prime factors (or prime indices).
%Y A056239 adds up prime indices, row sums of A112798.
%Y A116861 counts partitions by sum of run-compression.
%Y A304038 lists run-compression of prime indices, sum A066328.
%Y A335433 lists numbers whose prime indices are separable, complement A335448.
%Y A373949 counts compositions by sum of run-compression, opposite A373951.
%Y A374251 run-compresses standard compositions, sum A373953, rank A373948.
%Y Cf. A000040, A001223, A001414, A037201, A116608, A124767, A333755, A373954, A374246, A374247, A374252.
%K nonn
%O 1,2
%A _Gus Wiseman_, Jul 09 2024