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,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

Sequence in context: A163173 A058640 A075653 * A267573 A345282 A369749

Adjacent sequences: A075653 A075654 A075655 * A075657 A075658 A075659

Keyword

easy,nonn

Author

Joseph L. Pe, Oct 12 2002

Status

approved