OFFSET
0,2
COMMENTS
The numerators are in A174289. The input sequence starts 1, 1/2, 1/6, -1/30, 1/42....
The inverse binomial transform generates 1, -1/2, 1/6, -1/30, 11/70, -137/210, 4157/2310,...
MAPLE
read("transforms") ; L := [1, 1/2, seq(bernoulli(2*i), i=1..30)] ; BINOMIALi(L) ; apply(denom, %) ;
MATHEMATICA
b[0]=1; b[1]=1/2; b[n_] := BernoulliB[2n-2]; a[n_] := Sum[(-1)^(n-k)*Binomial[n, k]*b[k], {k, 0, n}]; Table[a[n], {n, 0, 23}] // Denominator (* Jean-François Alcover_, Aug 09 2012 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Paul Curtz, Mar 14 2010
STATUS
approved