|
| |
|
|
A262235
|
|
Denominators of a series leading to Euler's constant gamma.
|
|
13
|
|
|
|
4, 72, 32, 14400, 1728, 2540160, 138240, 261273600, 896000, 10538035200, 209018880, 407994402816000, 5633058816000, 941525544960000, 4723310592, 8707228239790080000, 6162712657920000, 17473102222724628480000, 107559878256230400000, 14162409169997856768000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Gamma = 1 - 1/4 - 5/72 - 1/32 - 251/14400 - 19/1728 - 19087/2540160 - ..., see the references below.
|
|
|
LINKS
|
Table of n, a(n) for n=1..20.
Iaroslav V. Blagouchine, Two series expansions for the logarithm of the gamma function involving Stirling numbers and containing only rational coefficients for certain arguments related to 1/pi, Journal of Mathematical Analysis and Applications (Elsevier), 2016. arXiv version, arXiv:1408.3902 [math.NT], 2014-2016.
Iaroslav V. Blagouchine, Expansions of generalized Euler's constants into the series of polynomials in 1/pi^2 and into the formal enveloping series with rational coefficients only. Journal of Number Theory (Elsevier), vol. 158, pp. 365-396, 2016. arXiv version, arXiv:1501.00740 [math.NT], 2015.
|
|
|
FORMULA
|
a(n) = C2(n)/(n*(n + 1)!), where C2(n) are Cauchy numbers of the second kind (see A002657 and A002790).
|
|
|
EXAMPLE
|
Denominators of 1/4, 5/72, 1/32, 251/14400, 19/1728, 19087/2540160, ...
|
|
|
MAPLE
|
a := proc(n) local r; r := proc(n) option remember; if n=0 then 1 else
1 - add(r(k)/(n-k+1), k=0..n-1) fi end: denom(r(n)/(n*(n+1))) end:
seq(a(n), n=1..20); # Peter Luschny, Apr 19 2018
|
|
|
MATHEMATICA
|
g[n_] := Sum[Abs[StirlingS1[n, l]]/(l + 1), {l, 1, n}]/(n*(n + 1)!); a[n_] := Denominator[g[n]]; Table[a[n], {n, 1, 20}]
|
|
|
CROSSREFS
|
Cf. A001067, A001620, A002657, A002790, A006953, A075266, A075267, A195189.
Sequence in context: A162135 A047939 A088693 * A133003 A161791 A132097
Adjacent sequences: A262232 A262233 A262234 * A262236 A262237 A262238
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Iaroslav V. Blagouchine, Sep 15 2015
|
|
|
STATUS
|
approved
|
| |
|
|
