|
%I #24 Apr 03 2022 17:30:44
%S 1,0,2,0,0,3,1,-1,0,4,0,0,0,0,5,2,-1,-2,0,0,6,0,0,0,0,0,0,7,1,1,0,-3,
%T 0,0,0,8,1,0,-2,0,0,0,0,0,9,2,-1,0,0,-4,0,0,0,0,10,0,0,0,0,0,0,0,0,0,
%U 0,11,1,3,1,-3,0,-5,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,13,2,-1
%N A051731 + A127448 - I where I is the Identity matrix (A023531).
%C Row sums = A073757: (1, 2, 3, 4, 5, 5, 7, 7, 8, 7, ...).
%F a(n) = A051731(n) + A127448(n) - A023531(n).
%F T(n,k) = k*A008683(n/k) + 1 if k divides n and k < n, T(n,k)=n for k=n, and T(n,k)=0 otherwise. - _Max Alekseyev_, Jan 07 2015
%e First few rows of the triangle:
%e 1;
%e 0, 2;
%e 0, 0, 3;
%e 1, -1, 0, 4;
%e 0, 0, 0, 0, 5;
%e 2, -1, -2, 0, 0, 6;
%e 0, 0, 0, 0, 0, 0, 7;
%e 1, 1, 0, -3, 0, 0, 0, 8;
%e ... [Typo corrected by _N. J. A. Sloane_, May 22 2010]
%o (PARI) A134673(n,k) = if(n%k,0,if(k==n,n,k*moebius(n/k)+1)); /* _Max Alekseyev_, Jan 07 2015 */
%Y Cf. A127448, A073757, A051731.
%K tabl,sign
%O 1,3
%A _Gary W. Adamson_, Nov 05 2007
%E More terms from _Max Alekseyev_, Apr 03 2022
|
