OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
B. Chern, P. Diaconis, D. M. Kane, and R. C. Rhoades, Closed expressions for averages of set partition statistics, arXiv:1304.4309 [math.CO], 2013.
MATHEMATICA
Table[BellB[n+2] - 3 BellB[n+1] + BellB[n], {n, 0, 30}] (* Vincenzo Librandi, Jul 16 2013 *)
#[[3]]-3#[[2]]+#[[1]]&/@Partition[BellB[Range[0, 30]], 3, 1] (* Harvey P. Dale, Aug 26 2021 *)
PROG
(Magma) [Bell(n+2)-3*Bell(n+1)+Bell(n): n in [0..30]]; // Vincenzo Librandi, Jul 16 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jun 10 2013
STATUS
approved