A176046 Triangle T(n,m) = 1 + F(m) + F(n-m) - F(n), read by rows, where F = A000045 is the Fibonacci sequence.

1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, -1, -1, 0, 1, 1, -1, -3, -3, -3, -1, 1, 1, -3, -6, -7, -7, -6, -3, 1, 1, -6, -11, -13, -14, -13, -11, -6, 1, 1, -11, -19, -23, -25, -25, -23, -19, -11, 1, 1, -19, -32, -39, -43, -44, -43, -39, -32, -19, 1

Offset

0,5

Comments

Row sums are 1,2,4,4,4,0,-9,-30,-72,-154,-308,...

Links

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

Example

1;
1, 1;
1, 2, 1;
1, 1, 1, 1;
1, 1, 0, 1, 1;
1, 0, -1, -1, 0, 1;
1, -1, -3, -3, -3, -1, 1;
1, -3, -6, -7, -7, -6, -3, 1;
1, -6, -11, -13, -14, -13, -11, -6, 1;
1, -11, -19, -23, -25, -25, -23, -19, -11, 1;
1, -19, -32, -39, -43, -44, -43, -39, -32, -19, 1;

Mathematica

L[n_, m_] = Fibonacci[m] + Fibonacci[n - m] - (Fibonacci[0] + Fibonacci[n]) + 1;
Table[Table[L[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]

Crossrefs

Sequence in context: A037821 A316863 A037911 * A172090 A037912 A056980

Adjacent sequences: A176043 A176044 A176045 * A176047 A176048 A176049

Keyword

sign,tabl,easy

Author

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

Status

approved