OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..626
M. Kaneko, The Akiyama-Tanigawa algorithm for Bernoulli numbers, J. Integer Sequences, 3 (2000), #00.2.9.
FORMULA
a(n) = numerator(n! * [x^n] f(x)) where f(x) =(x*exp(4*x))/(1-exp(x))^4+13/(3*(1-exp(x)))-7/(2*(1-exp(x))^2)+1/(1-exp(x))^3-13/12. - Vladimir Kruchinin, Nov 03 2015
MATHEMATICA
a[0, k_] := 1/(k+1); a[n_, k_] := a[n, k] = (k+1)*(a[n-1, k] - a[n-1, k+1]); a[n_] := a[n, 3] // Numerator; Table[a[n], {n, 0, 28}] (* Jean-François Alcover, Sep 17 2012 *)
CROSSREFS
KEYWORD
sign,easy,nice
AUTHOR
EXTENSIONS
More terms from James A. Sellers, Dec 08 1999
STATUS
approved