%I #5 Sep 16 2015 13:35:26
%S 1,2,3,4,5,5,7,6,6,7,11,7,13,9,8,8,17,9,19,9,10,13,23,10,10,15,12,11,
%T 29,11,31,12,14,19,12,12,37,21,16,13,41,13,43,15,14,25,47,14,14,15,20,
%U 17,53,15,16,15,22,31,59,16,61,33,16,16,18,17,67,21,26,17,71,17,73,39,20
%N a(n)=the smallest sum of two nontrivial divisors of n, if any, whose product equals n; otherwise, a(n)=n.
%C A divisor of n other than 1 or n is called nontrivial.
%e There are two ways to write 12 as a product of two nontrivial divisors, i.e., 6*2 and 4*3. Since 8=6+2>4+3=7, we have a(12)=7.
%t Table[If[Length[Divisors[n]] > 2, Min[Table[Divisors[n][[j]] + n/Divisors[n][[j]], {j, 2, Length[Divisors[n]] - 1}]], n], {n, 1, 100}] (* _Stefan Steinerberger_, Feb 04 2008 *)
%K nonn,easy
%O 1,2
%A _Joseph L. Pe_, Feb 01 2008
%E More terms from _Stefan Steinerberger_, Feb 04 2008