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