|
%I #14 Sep 10 2017 11:26:43
%S 1,6,4,21,6,12,8,60,39,36,12,84,14,24,24,155,18,78,20,42,32,36,24,120,
%T 93,84,40,168,30,72,32,126,48,108,48,819,38,60,56,360,42,96,44,84,78,
%U 72,48,620,57,186,72,294,54,120,72,120,80,180,60,168,62,96,312,889,84,144,68
%N a(n) = lcm(d(n), sigma(n)).
%H Antti Karttunen, <a href="/A009278/b009278.txt">Table of n, a(n) for n = 1..10000</a>
%t Table[LCM[Length[Divisors[n]], DivisorSigma[1, n]], {n, 1, 100}] (* _Stefan Steinerberger_, Apr 13 2006 *)
%o (PARI) A009278(n) = lcm(numdiv(n), sigma(n)); \\ _Antti Karttunen_, Sep 10 2017
%Y Cf. A000005, A000203, A009205, A009286.
%K nonn
%O 1,2
%A _David W. Wilson_
|
