%I #9 Oct 13 2012 21:00:19
%S 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,
%T 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
%N Triangular sequence: The Fibonacci sequence on the diagonal, 1's at all other places
%F t(n,m)=If[n == m, Fibonacci[n], 1].
%e 0;
%e 1, 1;
%e 1, 1, 1;
%e 1, 1, 1, 2;
%e 1, 1, 1, 1, 3;
%e 1, 1, 1, 1, 1, 5;
%e 1, 1, 1, 1, 1, 1, 8;
%e 1, 1, 1, 1, 1, 1, 1, 13;
%e 1, 1, 1, 1, 1, 1, 1, 1, 21;
%e 1, 1, 1, 1, 1, 1, 1, 1, 1, 34;
%e 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 55;
%t 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}];
%Y Cf. A130296, A002062 (row sums)
%K nonn,tabl,easy
%O 1,10
%A _Roger L. Bagula_ and _Gary W. Adamson_, Apr 28 2008