OFFSET
1,10
FORMULA
t(n,m)=If[n == m, Fibonacci[n], 1].
EXAMPLE
0;
1, 1;
1, 1, 1;
1, 1, 1, 2;
1, 1, 1, 1, 3;
1, 1, 1, 1, 1, 5;
1, 1, 1, 1, 1, 1, 8;
1, 1, 1, 1, 1, 1, 1, 13;
1, 1, 1, 1, 1, 1, 1, 1, 21;
1, 1, 1, 1, 1, 1, 1, 1, 1, 34;
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 55;
MATHEMATICA
Table[Table[If[n == m, Fibonacci[n], 1], {n, 0, m}], {m, 0, 10}]; Flatten[%] Table[Apply[Plus, Table[If[n == m, Fibonacci[n], 1], {n, 0, m}]], {m, 0, 10}];
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, Apr 28 2008
STATUS
approved