This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A137773 #11 Jul 22 2025 06:10:45
%S A137773 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 A137773 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 A137773 Triangular sequence: The Fibonacci sequence on the diagonal, 1's at all other places.
%F A137773 t(n,m)=If[n == m, Fibonacci[n], 1].
%e A137773 0;
%e A137773 1, 1;
%e A137773 1, 1, 1;
%e A137773 1, 1, 1, 2;
%e A137773 1, 1, 1, 1, 3;
%e A137773 1, 1, 1, 1, 1, 5;
%e A137773 1, 1, 1, 1, 1, 1, 8;
%e A137773 1, 1, 1, 1, 1, 1, 1, 13;
%e A137773 1, 1, 1, 1, 1, 1, 1, 1, 21;
%e A137773 1, 1, 1, 1, 1, 1, 1, 1, 1, 34;
%e A137773 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 55;
%t A137773 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 A137773 Cf. A130296, A002062 (row sums)
%K A137773 nonn,tabl,easy
%O A137773 1,10
%A A137773 _Roger L. Bagula_ and _Gary W. Adamson_, Apr 28 2008