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 A218853 #10 Nov 22 2015 21:43:46
%S A218853 1,-1,2,1,-6,6,0,1,-3,2,-1,0,30,-60,30,0,-1,0,10,-15,6,1,0,-21,0,105,
%T A218853 -126,42,0,1,0,-7,0,21,-21,6,-1,0,20,0,-70,0,140,-120,30,0,-3,0,20,0,
%U A218853 -42,0,60,-45,10,5,0,-99,0,330,0,-462,0,495,-330,66,0,5,0
%N A218853 Triangle read by rows, coefficients of the Bernoulli polynomials B_{n}(x) times A144845(n) in increasing powers.
%C A218853 See A213615 for the polynomials in decreasing powers.
%H A218853 T. D. Noe, <a href="/A218853/b218853.txt">Rows n = 0..100 of triangle, flattened</a>
%p A218853 A218853_row := n -> seq(coeff(numer(bernoulli(n,x)),x,j),j=0..n):
%p A218853 seq(A218853_row(n), n = 0..10); # _Peter Luschny_, Nov 22 2015
%t A218853 Flatten[Table[ p = CoefficientList[BernoulliB[n, x], x]; (LCM @@ Denominator[p])*p, {n, 0, 10}]]
%Y A218853 Cf. A213615.
%K A218853 sign,tabl
%O A218853 0,3
%A A218853 _T. D. Noe_, Nov 07 2012