A161657 a(n) = the smallest multiple of {the sum of the distinct prime divisors of n} that is >= n.

2, 3, 4, 5, 10, 7, 8, 9, 14, 11, 15, 13, 18, 16, 16, 17, 20, 19, 21, 30, 26, 23, 25, 25, 30, 27, 36, 29, 30, 31, 32, 42, 38, 36, 40, 37, 42, 48, 42, 41, 48, 43, 52, 48, 50, 47, 50, 49, 56, 60, 60, 53, 55, 64, 63, 66, 62, 59, 60, 61, 66, 70, 64, 72, 80, 67, 76, 78, 70, 71, 75, 73

Offset: 2

Author

Leroy Quet, Jun 15 2009

Keywords

• nonn

Comments

a(n) = n iff n belongs to A089352. - Ivan Neretin, May 25 2016

Links

• Ivan Neretin, Table of n, a(n) for n = 2..10000

Crossrefs

Cf. A089352, A161656.

Programs

Mathematica

Table[Ceiling[#1/#2]*#2 &[n, Plus @@ FactorInteger[n][[All, 1]]], {n, 2, 73}] (* Ivan Neretin, May 25 2016 *)

Extensions

More terms from Sean A. Irvine, Sep 29 2009