login
Triangle read by rows in which row n lists the proper divisors of n together with -n.
2

%I #10 Feb 20 2016 16:32:07

%S -1,1,-2,1,-3,1,2,-4,1,-5,1,2,3,-6,1,-7,1,2,4,-8,1,3,-9,1,2,5,-10,1,

%T -11,1,2,3,4,6,-12,1,-13,1,2,7,-14,1,3,5,-15,1,2,4,8,-16,1,-17,1,2,3,

%U 6,9,-18,1,-19,1,2,4,5,10,-20,1,3,7,-21,1,2,11,-22,1,-23

%N Triangle read by rows in which row n lists the proper divisors of n together with -n.

%C The same as A027750 but with the last term of every row multiplied by -1.

%C The sum of row n gives the abundance of n.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Abundance.html">Abundance</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/QuasiperfectNumber.html">Quasiperfect Number</a>

%e Written as an irregular triangle in which row n has length A000005(n) the sequence begins:

%e -1;

%e 1, -2;

%e 1, -3;

%e 1, 2, -4;

%e 1, -5;

%e 1, 2, 3, -6;

%e 1, -7;

%e 1, 2, 4, -8;

%e 1, 3, -9;

%e 1, 2, 5, -10;

%e 1, -11;

%e 1, 2, 3, 4, 6, -12;

%e ...

%t Flatten[Table[Join[{Most[Divisors[n]]},{-n}],{n,30}]] (* _Harvey P. Dale_, Feb 20 2016 *)

%Y Row sums give A033880.

%Y Cf. A000005, A000203, A000396, A001065, A005100, A005101, A027750, A027751, A033879.

%Y Cf. A137510, A163870.

%K sign,tabf

%O 1,3

%A _Omar E. Pol_, Dec 31 2013