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 A144393 #7 Jan 26 2019 05:01:23 %S A144393 2,2,2,1,4,1,1,3,3,1,1,4,0,4,1,1,5,0,0,5,1,1,6,0,0,0,6,1,1,7,0,0,0,0, %T A144393 7,1,1,8,0,0,0,0,0,8,1,1,9,0,0,0,0,0,0,9,1,1,10,0,0,0,0,0,0,0,10,1,1, %U A144393 11,0,0,0,0,0,0,0,0,11,1,1,12,0,0,0,0,0,0,0,0,0,12,1 %N A144393 Triangle read by rows (n >= 0, 0 <= k <= n): row n gives the coefficients in the expansion of x^n + n*x^(n - 1) + n*x + 1. %e A144393 Triangle begins: %e A144393 2; %e A144393 2, 2; %e A144393 1, 4, 1; %e A144393 1, 3, 3, 1; %e A144393 1, 4, 0, 4, 1; %e A144393 1, 5, 0, 0, 5, 1; %e A144393 1, 6, 0, 0, 0, 6, 1; %e A144393 1, 7, 0, 0, 0, 0, 7, 1; %e A144393 1, 8, 0, 0, 0, 0, 0, 8, 1; %e A144393 1, 9, 0, 0, 0, 0, 0, 0, 9, 1; %e A144393 1, 10, 0, 0, 0, 0, 0, 0, 0, 10, 1; %e A144393 ... %t A144393 p[x_, n_] = x^n + n*x^(n - 1) + n*x + 1; %t A144393 Table[CoefficientList[p[x, n], x], {n, 0, 10}] // Flatten %o A144393 (Maxima) T(n, k) := ratcoef(x^n + n*x^(n - 1) + n*x + 1, x, k)$ %o A144393 create_list(T(n,k), n, 0, 20, k, 0, n); %o A144393 /* _Franck Maminirina Ramaharo_, Jan 25 2019 */ %Y A144393 Row sums: A005843. %Y A144393 Cf. A144394. %K A144393 nonn,easy,tabl %O A144393 0,1 %A A144393 _Roger L. Bagula_ and _Gary W. Adamson_, Oct 02 2008 %E A144393 Edited and offset corrected by _Franck Maminirina Ramaharo_, Jan 25 2019