OFFSET
0,3
COMMENTS
LINKS
Peter Luschny, Approximations to the factorial function.
W. Wang, Unified approaches to the approximations of the gamma function, J. Number Theory (2016).
FORMULA
a(n) = numerator(b(2*n)) with b(n) = Y_{n}(0, z_2, z_3,..., z_n)/n! with z_k = k!*Bernoulli(k,1/2)/(k*(k-1)) and Y_{n} the complete Bell polynomials.
The rational numbers have the recurrence r(n) = (1/(2*n))*Sum_{m=0..n-1} Bernoulli(2*m+2,1/2)*r(n-m-1)/(2*m+1)) for n>=1, r(0)=1. - Peter Luschny, Sep 30 2016
EXAMPLE
The underlying rational sequence starts:
1, 0, -1/24, 0, 19/5760, 0, -2561/2903040, 0, 874831/1393459200, 0, ...
MAPLE
b := n -> CompleteBellB(n, 0, seq((k-2)!*bernoulli(k, 1/2), k=2..n))/n!:
# Alternatively the rational sequence by recurrence:
R := proc(n) option remember; local k; `if`(n=0, 1,
add(bernoulli(2*m+2, 1/2)* R(n-m-1)/(2*m+1), m=0..n-1)/(2*n)) end:
seq(numer(R(n)), n=0..12); # Peter Luschny, Sep 30 2016
MATHEMATICA
CompleteBellB[n_, zz_] := Sum[BellY[n, k, zz[[1 ;; n-k+1]]], {k, 1, n}];
b[n_] := CompleteBellB[n, Join[{0}, Table[(k-2)! BernoulliB[k, 1/2], {k, 2, n}]]]/n!;
a[n_] := Numerator[b[2n]];
Table[a[n], {n, 0, 12}] (* Jean-François Alcover, Sep 09 2018 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Peter Luschny, Sep 25 2016
STATUS
approved