%I #19 Apr 17 2022 21:16:16
%S 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,
%T 27,36,29,30,31,32,42,38,36,40,37,42,48,42,41,48,43,52,48,50,47,50,49,
%U 56,60,60,53,55,64,63,66,62,59,60,61,66,70,64,72,80,67,76,78,70,71,75,73
%N a(n) = the smallest multiple of {the sum of the distinct prime divisors of n} that is >= n.
%C a(n) = n iff n belongs to A089352. - _Ivan Neretin_, May 25 2016
%H Ivan Neretin, <a href="/A161657/b161657.txt">Table of n, a(n) for n = 2..10000</a>
%t Table[Ceiling[#1/#2]*#2 &[n, Plus @@ FactorInteger[n][[All, 1]]], {n, 2, 73}] (* _Ivan Neretin_, May 25 2016 *)
%Y Cf. A089352, A161656.
%K nonn
%O 2,1
%A _Leroy Quet_, Jun 15 2009
%E More terms from _Sean A. Irvine_, Sep 29 2009