|
%I #9 Mar 30 2012 18:37:44
%S 1,0,0,1,0,0,2,1,0,2,1,0,4,3,0,5,4,0,8,8,0,10,11,0,15,19,1,20,27,1,28,
%T 43,3,36,61,6,50,92,11,64,129,18,86,189,33,110,262,51,145,374,84,184,
%U 514,129,238,718,201,300,977,300,384,1344,454,482,1812,661,609,2459,972
%N Number of cyclically symmetric plane partitions (Macdonald's plane partition conjecture).
%C Equals A048141 (C3v symmetry) + 2* A048142 (only C3 symmetry).
%D Andrews, G. E. "Plane Partitions (III): The Weak Macdonald Conjecture." Invent. Math. 53, 193-225, 1979.
%D Mills, W. H.; Robbins, D. P.; and Rumsey, H. Jr., Proof of the Macdonald Conjecture. Invent. Math. 66, 73-87, 1982.
%H Wouter Meeussen, <a href="/A096419/b096419.txt">Table of n, a(n) for n=1..151</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MacdonaldsPlanePartitionConjecture.html">Macdonald's Plane Partition Conjecture</a>
%F See Mathematica code for a formula.
%t mcdon=Rest@CoefficientList[Series[Product[(1-q^(3i-1))/(1-q^(3i-2)) Product[(1-q^(3(m+i+j-1)))/(1-q^(3(2i+j-1))), {j, i, m}], {i, 1, m}]/.m->50, {q, 0, 97}], q]
%Y Cf. A047993, A048141, A048142.
%K nonn
%O 1,7
%A _Wouter Meeussen_, Aug 08 2004
|
