|
| |
| |
|
|
|
1, 3, 7, 16, 40, 116, 395, 1551, 6847, 33290, 175708, 996696, 6031281, 38710303, 262288647, 1868825536, 13955504572, 108907053412, 885935408411, 7495705968467, 65829634763895, 599033379716074, 5638952863115576, 54830878201599424, 549981672834888561
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Alois P. Heinz, Table of n, a(n) for n = 0..200
|
|
|
MAPLE
|
b:= proc(n) option remember; `if`(n>0, b(n-1), 0) + combinat[bell](n) end:
a:= proc(n) option remember; `if`(n>0, a(n-1), 0) + b(n) end:
seq (a(n), n=0..30); # Alois P. Heinz, Apr 20 2012
|
|
|
MATHEMATICA
|
Table[Sum[BellB[k], {k, 0, n }], {n, 0, 24}] // Accumulate (* Jean-François Alcover, Mar 13 2014 *)
|
|
|
CROSSREFS
|
Sequence in context: A147321 A103030 A001698 * A009337 A036567 A018023
Adjacent sequences: A029758 A029759 A029760 * A029762 A029763 A029764
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
STATUS
|
approved
|
| |
|
|
