OFFSET
1,4
COMMENTS
EXAMPLE
72 has prime factors {2,2,2,3,3} and prime indices {1,1,1,2,2}, so a(72) = 4 - 12 = -8.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Times@@prix[n]-Plus@@Prime/@prix[n], {n, 100}]
CROSSREFS
KEYWORD
sign
AUTHOR
Gus Wiseman, Jan 24 2025
STATUS
approved