A084872 Number of 5-multiantichains of an n-set.

1, 2, 8, 56, 726, 17938, 722680, 35955180, 1798971434, 83885891894, 3612380896332, 145277787750064, 5534505187364062, 202229611397865690, 7158136006402746464, 247316732670273773108, 8389241054998193347410

Offset: 0

Author

Goran Kilibarda, Vladeta Jovovic, Jun 10 2003

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..660
• Goran Kilibarda and Vladeta Jovovic, Antichains of Multisets, J. Integer Seqs., Vol. 7, 2004.

Crossrefs

Cf. A016269, A047707, A051112-A051118, A084869-A084883.

Programs

Magma

[(32^n - 20*24^n + 60*20^n + 20*18^n + 10*17^n - 90*16^n - 120*15^n + 150*14^n + 120*13^n - 480*12^n + 20*11^n + 720*10^n + 120*9^n - 445*8^n + 180*7^n - 1650*6^n + 1650*5^n + 870*4^n - 1740*3^n + 744*2^n)/120: n in [0..50]]; // G. C. Greubel, Oct 08 2017

Mathematica

Table[(32^n - 20*24^n + 60*20^n + 20*18^n + 10*17^n - 90*16^n - 120*15^n + 150*14^n + 120*13^n - 480*12^n + 20*11^n + 720*10^n + 120*9^n - 445*8^n + 180*7^n - 1650*6^n + 1650*5^n + 870*4^n - 1740*3^n + 744*2^n)/120, {n, 0, 50}] (* G. C. Greubel, Oct 08 2017 *)

PARI

for(n=0,50, print1((32^n - 20*24^n + 60*20^n + 20*18^n + 10*17^n - 90*16^n - 120*15^n + 150*14^n + 120*13^n - 480*12^n + 20*11^n + 720*10^n + 120*9^n - 445*8^n + 180*7^n - 1650*6^n + 1650*5^n + 870*4^n - 1740*3^n + 744*2^n)/120, ", ")) \\ G. C. Greubel, Oct 08 2017

Formula

a(n) = (1/5!)*(32^n - 20*24^n + 60*20^n + 20*18^n + 10*17^n - 90*16^n - 120*15^n + 150*14^n + 120*13^n - 480*12^n + 20*11^n + 720*10^n + 120*9^n - 445*8^n + 180*7^n - 1650*6^n + 1650*5^n + 870*4^n - 1740*3^n + 744*2^n).