login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A217061
E.g.f. exp(A006351(x)).
1
1, 1, 3, 15, 109, 1053, 12767, 186763, 3204313, 63128665, 1404963387, 34867190823, 954800951749, 28600649870133, 930325531322519, 32658109219519843, 1230609634110271921, 49545182501048868145
OFFSET
0,3
FORMULA
a(n) = sum(m=1..n, (sum(k=0..n-m, (n+k-1)!*sum(j=0..k, 1/(k-j)!*sum(l=0..j, (2^(j-l)*(-1)^(l+j)*stirling1(n-m-l+j,j-l))/(l!*(n-m-l+j)!)))))/(m-1)!), n>0, a(0)=1.
E.g.f.: 4*LambertW(-exp((x-1)/2)/2)^2 / exp(x). - Vaclav Kotesovec, Aug 04 2014
a(n) ~ sqrt(2) * n^(n-1) / (exp(n-1) * (2*log(2)-1)^(n-1/2)). - Vaclav Kotesovec, Aug 04 2014
MATHEMATICA
CoefficientList[Series[4*ProductLog[-E^((x-1)/2)/2]^2/E^x, {x, 0, 15}], x]*Range[0, 15]! (* Vaclav Kotesovec, Aug 04 2014 *)
PROG
(Maxima)
a(n):=(sum((m*sum((n+k-1)!*sum(1/(k-j)!*sum((2^(j-l)*(-1)^(l+j)*stirling1(n-m-l+j, j-l))/(l!*(n-m-l+j)!), l, 0, j), j, 0, k), k, 0, n-m))/m!, m, 1, n));
CROSSREFS
Sequence in context: A153305 A380080 A110328 * A054201 A090355 A083483
KEYWORD
nonn
AUTHOR
Vladimir Kruchinin, Sep 26 2012
STATUS
approved

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy