OFFSET
1,4
FORMULA
MATHEMATICA
A003415[n_] := If[n < 2, 0, Module[{f = FactorInteger[n]}, If[PrimeQ[n], 1, Total[n*f[[All, 2]]/f[[All, 1]]]]]];
a[n_] := DivisorSigma[1, n] + A003415[n] - 2 n;
Array[a, 80] (* Jean-François Alcover, Jun 12 2021 *)
PROG
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Antti Karttunen, Jun 05 2021
STATUS
approved