OFFSET
1,2
EXAMPLE
The prime factors of 450 are {2,3,3,5,5}, with mean 18/5, so a(450) = 4.
MATHEMATICA
prifacs[n_]:=If[n==1, {}, Flatten[ConstantArray@@@FactorInteger[n]]];
Table[If[n==1, 0, Ceiling[Mean[prifacs[n]]]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 18 2023
STATUS
approved