Search: a052803 -id:a052803
|
|
A087138
|
|
Expansion of (1-sqrt(1-4*log(1+x)))/2.
|
|
+10
4
|
|
|
1, 1, 8, 64, 824, 12968, 252720, 5789712, 153169440, 4589004192, 153643615872, 5684390364288, 230307823878144, 10141452865049088, 482259966649655808, 24630247225278881280, 1344614199041549399040, 78137673004382654223360
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=1..n} Stirling1(n, k)*k!*Catalan(k-1).
a(n) ~ n! / (2*exp(1/8)*sqrt(Pi) * (exp(1/4)-1)^(n-1/2) * n^(3/2)). - Vaclav Kotesovec, May 03 2015
|
|
MATHEMATICA
|
Rest[CoefficientList[Series[(1-Sqrt[1-4*Log[1+x]])/2, {x, 0, 20}], x] * Range[0, 20]!] (* Vaclav Kotesovec, May 03 2015 *)
|
|
PROG
|
(PARI) x='x+O('x^50); Vec(serlaplace((1-sqrt(1-4*log(1+x)))/2)) \\ G. C. Greubel, May 24 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A367158
|
|
E.g.f. satisfies A(x) = 1 - A(x)^3 * log(1 - x).
|
|
+10
4
|
|
|
1, 1, 7, 92, 1824, 48804, 1649724, 67492872, 3243567552, 179139978072, 11181615816216, 778466939121552, 59811143359463952, 5027200928936108064, 458865351655379262432, 45201262487568977507328, 4779609140451030860102400, 539990133396500652971120640
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} (3*k)!/(2*k+1)! * |Stirling1(n,k)|.
a(n) ~ 9 * n^(n-1) / (2^(5/2) * exp(23*n/27) * (exp(4/27) - 1)^(n - 1/2)). - Vaclav Kotesovec, Nov 10 2023
|
|
MATHEMATICA
|
Table[Sum[(-1)^(n-k) * (3*k)!/(2*k+1)! * StirlingS1[n, k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Nov 10 2023 *)
|
|
PROG
|
(PARI) a(n) = sum(k=0, n, (3*k)!/(2*k+1)!*abs(stirling(n, k, 1)));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A087152
|
|
Expansion of (1-sqrt(1-4*log(1+x)))/log(1+x)/2.
|
|
+10
3
|
|
|
1, 3, 20, 194, 2554, 42226, 843744, 19769256, 531768120, 16152296424, 546895099200, 20425461026736, 834215500905552, 36988602430554576, 1769524998544143360, 90851799797294235264, 4982968503277896871296
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} Stirling1(n, k)*k!*Catalan(k).
a(n) ~ 2*n! / (exp(1/8)*sqrt(Pi) * (exp(1/4)-1)^(n-1/2) * n^(3/2)). - Vaclav Kotesovec, May 03 2015
|
|
MATHEMATICA
|
Rest[CoefficientList[Series[(1-Sqrt[1-4*Log[1+x]])/Log[1+x]/2, {x, 0, 20}], x] * Range[0, 20]!] (* Vaclav Kotesovec, May 03 2015 *)
|
|
PROG
|
(PARI) x='x+O('x^50); Vec(serlaplace((1-sqrt(1-4*log(1+x)))/log(1+x)/2 - 1)) \\ G. C. Greubel, May 24 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A371140
|
|
E.g.f. satisfies A(x) = 1 - x*A(x)^2 * log(1 - x).
|
|
+10
2
|
|
|
1, 0, 2, 3, 56, 270, 5064, 47040, 984416, 14116032, 336538080, 6589416240, 179336461248, 4446985514400, 137520942168960, 4112410749501600, 143445512622458880, 5004065722611594240, 195260931334478223360, 7762385328551718796800, 336051947630616458065920
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: 2/(1 + sqrt(1+4*x*log(1-x))).
a(n) = n! * Sum_{k=0..floor(n/2)} (2*k)!/(k+1)! * |Stirling1(n-k,k)|/(n-k)!.
a(n) ~ sqrt(2 + 8*r^2/(1-r)) * n^(n-1) / (exp(n) * r^n), where r = 0.436224579489690436773045325306926562580857950193340891933383996... is the root of the equation 4*r*log(1-r) = -1. - Vaclav Kotesovec, Mar 12 2024
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[(-1 + Sqrt[1 + 4*x*Log[1 - x]])/(2*x*Log[1 - x]), {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Mar 12 2024 *)
|
|
PROG
|
(PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(2/(1+sqrt(1+4*x*log(1-x)))))
(PARI) a(n) = n!*sum(k=0, n\2, (2*k)!/(k+1)!*abs(stirling(n-k, k, 1))/(n-k)!);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.006 seconds
|