%I #6 Apr 02 2023 09:40:11
%S 12,24,42,48,60,63,72,96,126,130,140,144,189,192,195,252,266,288,308,
%T 325,330,360,378,384,399,420,432,495,546,567,572,576,588,600,630,638,
%U 650,665,756,768,819,864,882,884,931,945,957,962,975,1122,1134,1152,1190
%N Positive integers whose prime indices satisfy (maximum) = 2*(median).
%C A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
%C The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).
%C These are Heinz numbers of partitions satisfying (maximum) = 2*(median).
%F A061395(a(n)) = 2*A360005(a(n)).
%e The terms together with their prime indices begin:
%e 12: {1,1,2}
%e 24: {1,1,1,2}
%e 42: {1,2,4}
%e 48: {1,1,1,1,2}
%e 60: {1,1,2,3}
%e 63: {2,2,4}
%e 72: {1,1,1,2,2}
%e 96: {1,1,1,1,1,2}
%e 126: {1,2,2,4}
%e 130: {1,3,6}
%e 140: {1,1,3,4}
%e 144: {1,1,1,1,2,2}
%e The prime indices of 126 are {1,2,2,4}, with maximum 4 and median 2, so 126 is in the sequence.
%e The prime indices of 308 are {1,1,4,5}, with maximum 5 and median 5/2, so 308 is in the sequence.
%t prix[n_]:=If[n==1,{}, Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t Select[Range[100],Max@@prix[#]==2*Median[prix[#]]&]
%Y The LHS (greatest prime index) is A061395.
%Y The RHS (twice median) is A360005, distinct A360457.
%Y These partitions are counted by A361849.
%Y For mean instead of median we have A361855, counted by A361853.
%Y For minimum instead of median we have A361908, counted by A118096.
%Y For length instead of median we have A361909, counted by A237753.
%Y A000975 counts subsets with integer median.
%Y A001222 (bigomega) counts prime factors, distinct A001221 (omega).
%Y A112798 lists prime indices, sum A056239.
%Y A325347 counts partitions with integer median, complement A307683.
%Y A359893 and A359901 count partitions by median.
%Y Cf. A027193, A067801, A111907, A361205, A361848, A361858.
%K nonn
%O 1,1
%A _Gus Wiseman_, Apr 02 2023
|