OFFSET
1,1
COMMENTS
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.
Also positive integers whose prime indices satisfy (maximum) = 2*(mean).
Also Heinz numbers of partitions of the same size as their complement (see example).
EXAMPLE
The terms together with their prime indices begin:
28: {1,1,4}
40: {1,1,1,3}
78: {1,2,6}
84: {1,1,2,4}
171: {2,2,8}
190: {1,3,8}
198: {1,2,2,5}
220: {1,1,3,5}
240: {1,1,1,1,2,3}
252: {1,1,2,2,4}
280: {1,1,1,3,4}
The prime indices of 84 are {1,1,2,4}, with maximum 4, length 4, and sum 8, and 4*4 = 2*8, so 84 is in the sequence.
The prime indices of 120 are {1,1,1,2,3}, with maximum 3, length 5, and sum 8, and 3*5 != 2*8, so 120 is not in the sequence.
The prime indices of 252 are {1,1,2,2,4}, with maximum 4, length 5, and sum 10, and 4*5 = 2*10, so 252 is in the sequence.
The partition (5,2,2,1) with Heinz number 198 has diagram:
o o o o o
o o . . .
o o . . .
o . . . .
Since the partition and its complement (shown in dots) both have size 10, 198 is in the sequence.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[2, 100], Max@@prix[#]*PrimeOmega[#]==2*Total[prix[#]]&]
CROSSREFS
A061395 gives greatest prime index.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 29 2023
STATUS
approved