A075656 n + product of prime factors of n.
1, 4, 6, 6, 10, 12, 14, 10, 12, 20, 22, 18, 26, 28, 30, 18, 34, 24, 38, 30, 42, 44, 46, 30, 30, 52, 30, 42, 58, 60, 62, 34, 66, 68, 70, 42, 74, 76, 78, 50, 82, 84, 86, 66, 60, 92, 94, 54, 56, 60, 102, 78, 106, 60, 110, 70, 114, 116, 118, 90, 122, 124, 84, 66, 130, 132
Offset: 1
Examples
6 + product of prime factors of 6 = 6 + 2 * 3 = 12, so a(6) = 12.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Formula
a(n)=A073353(n), n>1. [From R. J. Mathar, Sep 23 2008]
Comments