|
|
A332541
|
|
Denominators of coefficients in a series for Euler's constant gamma.
|
|
1
|
|
|
1, 24, 54, 2880, 10800, 362880, 1058400, 5806080, 97977600, 4790016000, 138311712000, 31384184832000, 971415244800, 439378587648000, 3530720793600000, 46562717859840000, 2285647412944896000, 36785478363630796800, 741528257908838400000, 674400436666564608000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Conjecture: For n > 0, a(n) is a Zumkeller number (A083207). Verified form all n in [2,19]. - Ivan N. Ianakiev, Feb 17 2020
|
|
LINKS
|
|
|
FORMULA
|
The reference gives an explicit formula in terms of the Gregory numbers G_n = A002206/A002207.
|
|
MATHEMATICA
|
g[n_] := -(-1)^n*Sum[StirlingS1[n, j]/(j + 1), {j, 1, n}]/n!; Flatten[{1, Table[Denominator[2*Sum[g[k]*g[n + 2 - k], {k, 1, n}]/(n + 1)], {n, 1, 25}]}] (* Vaclav Kotesovec, Feb 16 2020 *)
|
|
CROSSREFS
|
Cf. also A001620 (Euler's constant gamma).
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|