|
Search: id:A087650
|
|
|
| A087650 |
|
Sum_{k=0..n} (-1)^(n-k)*Bell(k). |
|
+0
3
|
|
| 1, 0, 2, 3, 12, 40, 163, 714, 3426, 17721, 98254, 580316, 3633281, 24011156, 166888166, 1216070379, 9264071768, 73600798036, 608476008123, 5224266196934, 46499892038438, 428369924118313, 4078345814329010, 40073660040755336
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
FORMULA
|
E.g.f.: exp(-x)*((exp(x)-1)*exp(exp(x)-1)+1).
a(n)= (-1)^n + Bell(n) - A000296(n), with Bell(n)=A000110(n). Wolfdieter Lang (wolfdieter.lang_AT_physik_DOT_uni-karlsruhe_DOT_de), Dec 01 2003
|
|
MATHEMATICA
|
f[n_] := Sum[ StirlingS2[n, k], {k, 1, n}]; Table[(-1)^n + Sum[(-1)^(n - k)*f[k], {k, 0, n}], {n, 0, 23}] (from Robert G. Wilson v)
Needs["DiscreteMath`Combinatorica`"]; Table[ Sum[(-1)^(n - k)*BellB[k], {k, 0, n}], {n, 0, 23}] (from Robert G. Wilson v)
|
|
CROSSREFS
|
Cf. A000110, A000296, A005001, A005493.
Sequence in context: A012310 A082526 A151368 this_sequence A012514 A012511 A012309
Adjacent sequences: A087647 A087648 A087649 this_sequence A087651 A087652 A087653
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladeta Jovovic (vladeta(AT)eunet.rs), Sep 23 2003
|
|
|
Search completed in 0.002 seconds
|
