A176048 Triangle t(n,m) = A005185(m+1)+A005185(n-m+1)-A005185(n+1), read by rows 0<=m<=n.

1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, -1, 0, 1, 0, 1, 1, 0, 1, 0, -1, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 1, 0

Offset: 0

Author

Roger L. Bagula and Gary W. Adamson, Apr 07 2010

Keywords

• sign
• tabl

Examples

			  1;
 1, 1;
 1, 0, 1;
 1, 0, 0, 1;
 1, 1, 1, 1, 1;
 1, 0, 1, 1, 0, 1;
 1, 0, 0, 1, 0, 0, 1;
 1, 1, 1, 1, 1, 1, 1, 1;
 1, 0, 1, 1, 0, 1, 1, 0, 1;
		

Programs

Maple

A176048 := proc(n,m)
        A005185(m+1)+A005185(n-m+1)-A005185(n+1) ;
end proc:
seq(seq(A176048(n,m),m=0..n),n=0..12) ; # R. J. Mathar, Jul 11 2012

Extensions

Installed a sequence where definition and terms match, removed erroneous row sums. - R. J. Mathar, Jul 11 2012