OFFSET
1,1
COMMENTS
EXAMPLE
The sequence of terms together with their prime indices begins:
4: {1,1}
6: {1,2}
8: {1,1,1}
10: {1,3}
12: {1,1,2}
14: {1,4}
16: {1,1,1,1}
18: {1,2,2}
20: {1,1,3}
22: {1,5}
24: {1,1,1,2}
26: {1,6}
28: {1,1,4}
32: {1,1,1,1,1}
34: {1,7}
36: {1,1,2,2}
38: {1,8}
40: {1,1,1,3}
44: {1,1,5}
46: {1,9}
48: {1,1,1,1,2}
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], Times@@primeMS[#]<Plus@@primeMS[#]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 25 2019
STATUS
approved