%I A124316
%S A124316 1,2,2,5,2,4,2,8,6,4,2,10,2,4,4,15,2,12,2,10,4,4,2,16,8,4,10,10,2,8,2,
%T A124316 22,4,4,4,30,2,4,4,16,2,8,2,10,12,4,2,30,10,16,4,10,2,20,4,16,4,4,2,20,
%U A124316 2,4,12,37,4,8,2,10,4,8,2,48,2,4,16,10,4,8,2,30,23,4,2,20,4,4,4,16,2,24
%N A124316 a(n) = Sum_{ d divides n } sigma_1(lcm(d,n/d)), where sigma is the sum 
               of divisors function.
%t A124316 Table[Plus @@ Map[DivisorSigma[1, GCD[ #, n/# ]] &, Divisors@n], {n, 
               90}]
%Y A124316 Cf. A001616, A061884, A124315.
%Y A124316 Sequence in context: A021448 A108053 A133501 this_sequence A061034 A111861 
               A004543
%Y A124316 Adjacent sequences: A124313 A124314 A124315 this_sequence A124317 A124318 
               A124319
%K A124316 nonn
%O A124316 1,2
%A A124316 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 30 2006