OFFSET
1,5
COMMENTS
EXAMPLE
The prime indices of 21 are {2,4}, with positive subset-sums {2,4,6}, so a(21) = 6 - 3 = 3.
MATHEMATICA
hwt[n_]:=Total[Cases[FactorInteger[n], {p_, k_}:>PrimePi[p] k]];
Table[hwt[n]-Length[Union[hwt/@Rest[Divisors[n]]]], {n, 30}]
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 23 2019
STATUS
approved