|
%I #10 Nov 21 2013 12:50:08
%S 0,1,2,4,4,9,6,11,12,13,10,24,12,21,30,26,16,43,18,40,40,37,22,59,40,
%T 45,50,52,28,89,30,57,60,61,86,90,36,69,70,103,40,125,42,88,140,85,46,
%U 128,84,97,90,106,52,165,130,113,100,109,58,201
%N Sum of all terms of triangle of absolute differences of the divisors of n.
%C Note that if n is prime then a(n) = n - 1.
%F a(n) = A187215(n) - A000203(n).
%e a(10) = 13 because the divisors of 10 are 1, 2, 5, 10; the triangle of absolute differences is
%e 1, 3, 5;
%e . 2, 2;
%e . 0;
%e and the sum of the terms of triangle is 1+3+5+2+2+0 = 13.
%t Table[Total[Flatten[NestList[Abs[Differences[#]]&,Differences[Divisors[ n]], DivisorSigma[0,n]-1]]],{n,60}] (* _Harvey P. Dale_, Aug 10 2011 *)
%Y Cf. A187203, A187205, A187207, A187208.
%K nonn
%O 1,3
%A _Omar E. Pol_, Aug 04 2011
|
