login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A184975 E.g.f. exp((1-sqrt(1-4*log(1+x)))/2). 1
1, 1, 2, 12, 106, 1330, 21188, 412496, 9471180, 250752012, 7519114872, 251898595344, 9324409750104, 377947150828728, 16648683024776112, 791945577071452608, 40457530872588060816, 2209174906291706917008, 128405210614917271843872, 7915238091104410779024576 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

FORMULA

a(n) = Sum_{k=1..n} (Sum_{i=0..(n-k)} ((i+k-1)!*C(k+2*i-1,i+k-1) *stirling1(n, i+k))))/(k-1)!), n>0, a(0)=1.

a(n) ~ n^(n-1) / (sqrt(2)*exp(n-3/8)*(exp(1/4)-1)^(n-1/2)). - Vaclav Kotesovec, Jun 02 2013

MATHEMATICA

CoefficientList[Series[Exp[(1-Sqrt[1-4*Log[1+x]])/2], {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Jun 02 2013 *)

PROG

(Maxima) a(n):=if n=0 then 1 else sum((sum(((i+k-1)!*binomial(k+2*i-1, i+k-1) *stirling1(n, i+k)), i, 0, n-k))/(k-1)!, k, 1, n);

(PARI) x='x+O('x^50); Vec(serlaplace(exp((1-sqrt(1-4*log(1+x)))/2))) \\ G. C. Greubel, Jun 02 2017

CROSSREFS

Sequence in context: A217801 A036077 A275765 * A268538 A319291 A265132

Adjacent sequences:  A184972 A184973 A184974 * A184976 A184977 A184978

KEYWORD

nonn

AUTHOR

Vladimir Kruchinin, Nov 22 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 19 04:40 EDT 2019. Contains 328211 sequences. (Running on oeis4.)