OFFSET
0,3
COMMENTS
MATHEMATICA
sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; sopfr /@ HarmonicNumber[Range[40]]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Carlos Alves, Dec 16 2007
STATUS
approved