|
MAPLE
|
a:=n->sum((n+1)!*sum((-1)^k/k!, j=1..n-k), k=0..n): seq(a(n), n=0..18); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 03 2007
a:=n->n!*sum((-1)^k/k!, k=0..n): seq(a(n)*n, n=1..19); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Dec 18 2007
with (combstruct):with (combinat):a:=proc(m) [ZL, {ZL=Set(Cycle(Z, card>=m))}, labeled]; end: ZLL:=a(2):seq(count(ZLL, size=n)*fibonacci(2, n), n=1..19); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 11 2008
with (combstruct):a:=proc(m) [ZL, {ZL=Set(Cycle(Z, card>=m))}, labeled]; end: ZLL:=a(2):seq(count(ZLL, size=n)*n, n=1..19); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 11 2008
|