OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..300
Frank Ruskey and Jennifer Woodcock, The Rand and block distances of pairs of set partitions, in International Workshop on Combinatorial Algorithms, Victoria, 2011. LNCS.
Frank Ruskey, Jennifer Woodcock and Yuji Yamauchi, Counting and computing the Rand and block distances of pairs of set partitions, Journal of Discrete Algorithms, Volume 16, October 2012, Pages 236-248. - From N. J. A. Sloane, Oct 03 2012
MAPLE
a:= n-> binomial(combinat[bell](n), 2):
seq(a(n), n=0..20); # Alois P. Heinz, Aug 28 2011
MATHEMATICA
a[n_] := With[{b = BellB[n]}, b*(b-1)/2]; Table[a[n], {n, 0, 19}] (* Jean-François Alcover, Mar 18 2014 *)
PROG
(Magma) [Binomial(Bell(n), 2): n in [0..20]]; // Vincenzo Librandi, Feb 17 2018
(Python)
from itertools import accumulate, islice
def A193274_gen(): # generator of terms
yield 0
blist, b = (1, ), 1
while True:
blist = list(accumulate(blist, initial=(b:=blist[-1])))
yield b*(b-1)//2
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 26 2011
STATUS
approved