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

1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, -1, 0, 1, 0, -1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 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, 1, 1, 1;
1, 0, 1, 0, 1;
1, 0, 0, 0, 0, 1;
1, 1, 1, 0, 1, 1, 1;
		

Programs

Maple

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

Extensions

Mutually compatible definition and terms installed. Erroneous row sums removed. - R. J. Mathar, Jul 11 2012