A140334 Triangle read by rows: nonnegative numerators of Bernoulli twin polynomial coefficients on line.

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, 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

Offset: 0

Author

Paul Curtz, May 28 2008

Keywords

• nonn
• tabl
• frac

Programs

Mathematica

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 *)

Formula

See A129378, A129826 and A140333.

First five increasing polynomials:

1;

-1/2, 1;

-1/3, 0, 1;

-1/6, -1/2, 1/2, 1;

-1/30, -1/2, -1/2, 1, 1;

...

Extensions

More terms from Jean-François Alcover, Sep 12 2013