|
|
A342166
|
|
Product of first n Fubini numbers.
|
|
3
|
|
|
1, 1, 3, 39, 2925, 1582425, 7410496275, 350464600333575, 191295845123076910125, 1355763582602823185129417625, 138623522325287867599380791765497875, 224935042709004795568466587349227029537282375, 6318777956744220129890735589019782971247629409914638125
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Product_{k=1..n} A000670(k).
a(n) ~ c * BarnesG(n+2) / (2^n * log(2)^(n*(n+3)/2)), where c = 0.960303470666951851619546415046950178638511457142008903473074598398282549...
a(n) ~ c * Pi^((n+1)/2) * n^(n^2/2 + n + 5/12) / (A * 2^((n-1)/2) * exp(3*n^2/4 + n - 1/12) * log(2)^(n*(n+3)/2)), where A is the Glaisher-Kinkelin constant A074962.
|
|
MAPLE
|
g:= proc(n) option remember; `if`(n=0, 1,
add(g(n-j)*binomial(n, j), j=1..n))
end:
a:= proc(n) option remember; `if`(n=0, 1, a(n-1)*g(n)) end:
|
|
MATHEMATICA
|
Table[Product[Sum[j!*StirlingS2[k, j], {j, 0, k}], {k, 1, n}], {n, 0, 12}]
Table[Product[PolyLog[-k, 1/2]/2, {k, 1, n}], {n, 0, 12}]
FoldList[Times, 1, Table[PolyLog[-n, 1/2]/2, {n, 1, 12}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|