OFFSET
1,2
COMMENTS
Prime factors taken without multiplicity. - Harvey P. Dale, Feb 27 2021
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
a(n)=A073353(n), n>1. [From R. J. Mathar, Sep 23 2008]
EXAMPLE
6 + product of prime factors of 6 = 6 + 2 * 3 = 12, so a(6) = 12.
MATHEMATICA
Flatten[Append[{1}, Table[n + Apply[Times, Transpose[FactorInteger[n]][[1]]], {n, 2, 100}]]]
Join[{1}, Table[n+Times@@FactorInteger[n][[All, 1]], {n, 2, 70}]] (* Harvey P. Dale, Feb 27 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Oct 12 2002
STATUS
approved