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
Keywords
Links
- Ivan Neretin, Table of n, a(n) for n = 2..10000
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
Comments