A192561 a(n) = sum(stirling1(n+1,k+1)^2*k!,k=0..n).

1, 2, 15, 235, 6150, 239596, 12934838, 921199238, 83488967768, 9367741437936, 1273270076895432, 205977064267447848, 39082297497546456816, 8591243344831665290592, 2165102057150152483834032, 619866690597157598321655216, 200017218987010519451515954560

Offset

0,2

Links

Table of n, a(n) for n=0..16.

Mathematica

 Table[Sum[StirlingS1[n+1, k+1]^2k!, {k, 0, n}], {n, 0, 100}]

Prog

 (Maxima) makelist(sum(stirling1(n+1, k+1)^2*k!, k, 0, n), n, 0, 24);

Crossrefs

Sequence in context: A326095 A212370 A302358 * A356587 A227098 A180610

Adjacent sequences: A192558 A192559 A192560 * A192562 A192563 A192564

Keyword

nonn

Author

Emanuele Munarini, Jul 04 2011

Status

approved