A192549 a(n) = sum(abs(stirling1(n+1,k+1))*stirling2(n,k),k=0..n).

1, 1, 4, 30, 356, 5925, 129949, 3609522, 123202470, 5047071210, 243591826248, 13646279320267, 876457826851309, 63867571888960931, 5233393632259094223, 478504806151155710490, 48490898635782743083282, 5414061277570448051139952

Offset

0,3

Links

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

Mathematica

Table[Sum[Abs[StirlingS1[n+1, k+1]]StirlingS2[n, k], {k, 0, n}], {n, 0, 100}]

Prog

(Maxima) makelist(sum(abs(stirling1(n+1, k+1))*stirling2(n, k), k, 0, n), n, 0, 24);

Crossrefs

Sequence in context: A218296 A118792 A317030 * A303001 A370928 A137341

Adjacent sequences: A192546 A192547 A192548 * A192550 A192551 A192552

Keyword

nonn

Author

Emanuele Munarini, Jul 04 2011

Status

approved