OFFSET
1,3
COMMENTS
EXAMPLE
The prime indices of 360 are {1,1,1,2,2,3}, with mean 3/2, so a(360) = 1.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
meandown[y_]:=If[Length[y]==0, 0, Floor[Mean[y]]];
Table[meandown[prix[n]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 29 2023
STATUS
approved