OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
FORMULA
MATHEMATICA
Array[If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &@ DivisorSigma[1, #] &, 76] (* Michael De Vlieger, Apr 08 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 07 2021
STATUS
approved