OFFSET
0,2
LINKS
T. D. Noe, Rows n = 0..100 of triangle, flattened
Peter Luschny, The Computation and Asymptotics of the Bernoulli numbers.
FORMULA
T(n,k) = A144845(n)*[x^(n-k)]B{n}(x).
EXAMPLE
b(0,x) = 1
b(1,x) = 2*x - 1
b(2,x) = 6*x^2 - 6*x + 1
b(3,x) = 2*x^3 - 3*x^2 + x
b(4,x) = 30*x^4 - 60*x^3 + 30*x^2 - 1
b(5,x) = 6*x^5 - 15*x^4 + 10*x^3 - x
MAPLE
seq(seq(coeff(denom(bernoulli(i, x))*bernoulli(i, x), x, i-j), j=0..i), i=0..12);
MATHEMATICA
Flatten[Table[p = Reverse[CoefficientList[BernoulliB[n, x], x]]; (LCM @@ Denominator[p])*p, {n, 0, 10}]] (* T. D. Noe, Nov 07 2012 *)
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Peter Luschny, Jun 16 2012
STATUS
approved