OFFSET
0,2
COMMENTS
LINKS
M. Kaneko, The Akiyama-Tanigawa algorithm for Bernoulli numbers, J. Integer Sequences, Vol 3 (2000), #00.2.9.
EXAMPLE
MATHEMATICA
t[1, k_] := HarmonicNumber[k]; t[n_, k_] := t[n, k] = k*(t[n-1, k] - t[n-1, k+1]); Table[t[n-k+1, k] // Numerator, {n, 1, 12}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Nov 15 2013 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Paul Curtz, Nov 09 2013
EXTENSIONS
More terms from Jean-François Alcover, Nov 15 2013
STATUS
approved