cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A321645 Number of distinct row/column permutations of plane partitions of n.

This page as a plain text file.
%I A321645 #5 Nov 15 2018 21:11:34
%S A321645 1,1,3,11,32,96,290,864,2502,7134,20081
%N A321645 Number of distinct row/column permutations of plane partitions of n.
%e A321645 The a(3) = 11 permutations of plane partitions:
%e A321645   [3] [2 1] [1 2] [1 1 1]
%e A321645 .
%e A321645   [2] [1 1] [1 1] [1] [1 0] [0 1]
%e A321645   [1] [1 0] [0 1] [2] [1 1] [1 1]
%e A321645 .
%e A321645   [1]
%e A321645   [1]
%e A321645   [1]
%t A321645 submultisetQ[M_,N_]:=Or[Length[M]==0,MatchQ[{Sort[List@@M],Sort[List@@N]},{{x_,Z___},{___,x_,W___}}/;submultisetQ[{Z},{W}]]];
%t A321645 multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
%t A321645 Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Sort[Map[Last,GatherBy[Sort[Reverse/@#],First],{2}],submultisetQ],submultisetQ],OrderedQ[Sort[Sort/@Map[Last,GatherBy[#,First],{2}],submultisetQ],submultisetQ]]&]],{n,6}]
%Y A321645 Cf. A000219, A001970, A007716, A008480, A068313, A114736, A120733, A316983, A319646.
%Y A321645 Cf. A321646, A321647, A321648, A321652, A321653, A321655.
%K A321645 nonn,more
%O A321645 0,3
%A A321645 _Gus Wiseman_, Nov 15 2018