A140352 - OEIS

%I #11 Sep 12 2013 10:52:03

%S 1,-2,1,-3,1,-6,-2,2,1,-30,-2,-2,1,1,30,-6,-1,-3,2,1,42,6,-2,-3,1,1,

%T -42,6,2,-6,-2,2,2,1,-30,-6,3,6,-3,-2,6,1,1,30,-10,-3,1,3,-5,-3,1,2,1,

%U 66,10,-2,-1,1,5,-1,-1,1,1,1

%N Denominators of Bernoulli twin numbers polynomial coefficients.

%C See numerators A140334, when numerator is 0, no entry is entered here.

%e Triangle starts:

%e 1;

%e -2, 1;

%e -3, 1;

%e -6, -2, 2, 1;

%t 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 // Select[#, # != 0 &]& // Sign[#]*Denominator[#]& (* _Jean-François Alcover_, Sep 12 2013 *)

%Y Cf. A140351, A129378.

%K sign,tabf,frac

%O 0,2

%A _Paul Curtz_, May 30 2008