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

Links

Table of n, a(n) for n=0..65.

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;

...

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

Crossrefs

Sequence in context: A224489 A318933 A361239 * A131324 A371884 A079724

Adjacent sequences: A140331 A140332 A140333 * A140335 A140336 A140337

Keyword

nonn,tabl,frac

Author

Paul Curtz, May 28 2008

Extensions

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

Status

approved