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 A153491 #13 Aug 18 2016 08:08:39 %S A153491 3,3,3,3,14,3,3,25,25,3,3,36,58,36,3,3,47,102,102,47,3,3,58,157,212, %T A153491 157,58,3,3,69,223,377,377,223,69,3,3,80,300,608,762,608,300,80,3,3, %U A153491 91,388,916,1378,1378,916,388,91,3,3,102,487,1312 %N A153491 Triangle T(n,m)= 11*binomial(n,k) - 8 read by rows, 0<=k<=n. %C A153491 Row sums are 3(n+1) + 11*(2^n - n - 1) = 3, 6, 20, 56, 136,... %H A153491 G. C. Greubel, <a href="/A153491/b153491.txt">Table of n, a(n) for n = 0..1034</a> %e A153491 3; %e A153491 3,3; %e A153491 3,14,3; %e A153491 3,25,25,3; %e A153491 3,36,58,36,3; %e A153491 3,47,102,102,47,3; %e A153491 3,58,157,212,157,58,3; %e A153491 3,69,223,377,377,223,69,3; %e A153491 3,80,300,608,762,608,300,80,3; %t A153491 T[n_, m_] = If[n == 1, 3, If[m == 0 || m == n, 3, 11*Binomial[n, k] - 8]] %t A153491 a1 = Table[Table[T[n, k], {k, 0, n}], {n, 0, 10}]; %t A153491 Flatten[a1] %Y A153491 Cf. A131065 %K A153491 nonn,tabl %O A153491 0,1 %A A153491 _Roger L. Bagula_ and _Gary W. Adamson_, Dec 27 2008 %E A153491 Definition and terms regularized. - _R. J. Mathar_, Jul 11 2012