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,31

Links

Table of n, a(n) for n=0..86.

Example

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;

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

Crossrefs

Sequence in context: A014750 A015491 A015776 * A067461 A321765 A328310

Adjacent sequences: A176044 A176045 A176046 * A176048 A176049 A176050

Keyword

sign,tabl

Author

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

Extensions

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

Status

approved