OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Sum of Prime Factors
MATHEMATICA
a[n_] := If[n == 1 || PrimeQ[n], 0, Plus @@ Times @@@ FactorInteger@n]; Table[a[n], {n, 80}]
PROG
(PARI) a(n) = if (isprime(n), 0, my(f=factor(n)); sum(k=1, #f~, f[k, 1]*f[k, 2])); \\ Michel Marcus, Mar 07 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 06 2022
STATUS
approved