OFFSET
1,2
COMMENTS
EXAMPLE
72 has prime factors {2,2,2,3,3} and prime indices {1,1,1,2,2}, so a(72) = 12 + 4 = 16.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Total[Prime/@prix[n]]+Times@@prix[n], {n, 100}]
CROSSREFS
For factors instead of indices we have A075254.
For indices instead of factors we have A379681.
Triangles:
- A027746 = prime factors
- A112798 = prime indices
Statistics:
Combinations:
A001222 counts prime factors with multiplicity.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 25 2025
STATUS
approved
