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 A140334 #13 Sep 12 2013 10:52:12
%S A140334 1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,1,1,1,1,5,0,2,1,1,1,1,7,5,1,
%T A140334 5,1,1,1,2,7,7,7,7,3,1,1,3,2,2,7,21,14,2,7,1,5,3,3,2,5,21,7,6,3,4,1
%N A140334 Triangle read by rows: nonnegative numerators of Bernoulli twin polynomial coefficients on line.
%F A140334 See A129378, A129826 and A140333.
%F A140334 First five increasing polynomials:
%F A140334 1;
%F A140334 -1/2, 1;
%F A140334 -1/3, 0, 1;
%F A140334 -1/6, -1/2, 1/2, 1;
%F A140334 -1/30, -1/2, -1/2, 1, 1;
%F A140334 ...
%t A140334 c[0, x_] = 1; c[n_, x_] := Sum[Binomial[n-1, j-1]*BernoulliB[j, x], {j, 1, n}]; Table[CoefficientList[c[n, x], x], {n, 0, 10}] // Flatten // Abs // Numerator (* _Jean-François Alcover_, Sep 12 2013 *)
%K A140334 nonn,tabl,frac
%O A140334 0,20
%A A140334 _Paul Curtz_, May 28 2008
%E A140334 More terms from _Jean-François Alcover_, Sep 12 2013