login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A128943 a(n) = Sum_{k=0..n} (-1)^(n-k)*k^n*Stirling1(n,k). 3
1, 1, 5, 53, 924, 23494, 810872, 36194514, 2017775680, 136829739216, 11055586913832, 1046742607228152, 114550470343202880, 14323855468574034720, 2026669209500208676608, 321743057984308274403024, 56892680614922936544276480, 11133427829583046292676364800, 2397458024796587973818060252160 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

FORMULA

E.g.f.: Sum_{n>=0} (-log(1-n*x))^n/n!.

a(n) = Sum_{k=0..n} abs(Stirling1(n+1,k+1))*Stirling2(n,k)*k!. - Emanuele Munarini, Jul 04 2011

MAPLE

with(combinat): a:=n->sum((-1)^(n-k)*k^n*stirling1(n, k), k=0..n): seq(a(n), n=0..18); # Emeric Deutsch, May 18 2007

MATHEMATICA

Table[Sum[Abs[StirlingS1[n+1, k+1]]StirlingS2[n, k]k!, {k, 0, n}], {n, 0, 100}] (* Emanuele Munarini, Jul 04 2011 *)

PROG

(Maxima) makelist(sum(abs(stirling1(n+1, k+1))*stirling2(n, k)*k!, k, 0, n), n, 0, 24); /* Emanuele Munarini, Jul 04 2011 */

CROSSREFS

Cf. A108459.

Sequence in context: A094089 A231866 A196659 * A180351 A337151 A171192

Adjacent sequences:  A128940 A128941 A128942 * A128944 A128945 A128946

KEYWORD

easy,nonn

AUTHOR

Vladeta Jovovic, May 09 2007

EXTENSIONS

More terms from Emeric Deutsch, May 18 2007

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 September 26 20:34 EDT 2021. Contains 347672 sequences. (Running on oeis4.)