OFFSET
1,4
COMMENTS
EXAMPLE
The prime indices of 198 are {1,2,2,5}, so a(198) = 1+5 = 6.
MATHEMATICA
Table[Total[Cases[FactorInteger[n], {p_?(OddQ@*PrimePi), k_}:>PrimePi[p]*k]], {n, 100}]
CROSSREFS
A066967 adds up sums of odd parts over all partitions.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 22 2023
STATUS
approved