OFFSET
1,2
COMMENTS
EXAMPLE
126 has prime indices {1,2,2,4} and prime factors {2,3,3,7}, and 16 > 15, so 126 is in the sequence.
The terms together with their prime indices begin:
1: {}
45: {2,2,3}
49: {4,4}
63: {2,2,4}
75: {2,3,3}
77: {4,5}
81: {2,2,2,2}
91: {4,6}
99: {2,2,5}
105: {2,3,4}
117: {2,2,6}
119: {4,7}
121: {5,5}
125: {3,3,3}
126: {1,2,2,4}
133: {4,8}
135: {2,2,2,3}
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], Times@@prix[#]>Plus@@Prime/@prix[#]&]
CROSSREFS
For factors instead of indices we have A002808.
The case of prime powers is A244623.
Positions of positive terms in A380344.
Partitions of this type are counted by A380411.
A001222 counts prime factors with multiplicity.
Triangles:
- A027746 = prime factors
- A112798 = prime indices
Statistics:
Combinations:
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 25 2025
STATUS
approved