OFFSET
0,3
COMMENTS
The array B(m,n) begins:
1, -1, -4/3, -1, -8/15, -1/5, -8/105,...
-2, -1/3, 1/3, 7/15, 1/3, 13/105,...
5/3, 2/3, 2/15, -2/15, -22/105,...
-1, -8/15, -4/15, -8/105,...
7/15, 4/15, 4/21,...
-1/5, -8/105,...
13/105,...
etc.
B(0, n) = 1, -1, -4/3, -1, -8/15, -1/5, -8/105, -3/35, -8/105, 1/35, 104/1155, ... = a(n)/b(n).
MATHEMATICA
max = 12; t[0] = Table[BernoulliB[n], {n, 0, 2*max}]; t[n_] := t[n] = Differences[t[0], n]; B1[1, 1] = -1/3; B1[n_, n_] := t[n][[n+1]]; B1[m_, n_] /; n == m+1 := B1[m, n] = -B1[m, m]; B1[m_?NonNegative, n_?NonNegative] := B1[m, n] = B1[m, n-1] + B1[m+1, n-1]; B1[_, _] = 0; Table[B1[0, n] // Numerator, {n, 0, 2*max}] (* Jean-François Alcover, Apr 14 2014 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Paul Curtz, Apr 12 2014
EXTENSIONS
More terms from Jean-François Alcover, Apr 14 2014
Edited by N. J. A. Sloane, May 21 2014
STATUS
approved