OFFSET
1,1
COMMENTS
EXAMPLE
The prime indices of 150 are {1,2,3,3}, with sum 9 and product 18, so 150 is in the sequence.
The terms together with their prime indices begin:
2: {1}
30: {1,2,3}
84: {1,1,2,4}
108: {1,1,2,2,2}
150: {1,2,3,3}
154: {1,4,5}
190: {1,3,8}
198: {1,2,2,5}
200: {1,1,1,3,3}
264: {1,1,1,2,5}
364: {1,1,4,6}
390: {1,2,3,6}
442: {1,6,7}
468: {1,1,2,2,6}
490: {1,3,4,4}
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[1000], MemberQ[prix[#], 1]&&Divisible[Times@@prix[#], Total[prix[#]]]&]
CROSSREFS
For nonprime instead of even we have A326150.
Partitions of this type are counted by A379320.
For squarefree instead of even we have A379844.
The squarefree case is A379845.
Divide all terms by 2 to get A380217.
A003963 multiplies together prime indices.
Counting and ranking multisets by comparing sum and product:
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 17 2025
STATUS
approved
