login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A059477 3-enumeration of n X n alternating-sign matrices. 3

%I #20 Jan 29 2019 10:07:13

%S 1,1,2,9,90,2025,102060,11573604,2946308904,1687603650084,

%T 2171945897658108,6289412333143466241,40940643700218614247324,

%U 599627833263501883888374756,19747212169938041691404746667280,1463229065460461810019231236067824400

%N 3-enumeration of n X n alternating-sign matrices.

%H Paul Barry, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL19/Barry/barry321.html">Jacobsthal Decompositions of Pascal's Triangle, Ternary Trees, and Alternating Sign Matrices</a>, Journal of Integer Sequences, 19, 2016, #16.3.5.

%H F. Colomo and A. G. Pronko, <a href="https://arxiv.org/abs/math-ph/0404045">On the refined 3-enumeration of alternating sign matrices</a>, arXiv:math-ph/0404045, 2004.

%H F. Colomo and A. G. Pronko, <a href="https://doi.org/10.1016/j.aam.2004.09.007">On the refined 3-enumeration of alternating sign matrices</a>, Advances in Applied Mathematics 34 (2005) 798.

%H F. Colomo and A. G. Pronko, <a href="http://www.arXiv.org/abs/math-ph/0411076">Square ice, alternating sign matrices and classical orthogonal polynomials</a>, arXiv:math-ph/0411076, 2004; JSTAT (2005) P01005.

%H G. Kuperberg, <a href="https://arxiv.org/abs/math/0008184">Symmetry classes of alternating-sign matrices under one roof</a>, arXiv:math/0008184 [math.CO], 2000-2001.

%H Yu. G. Stroganov, <a href="https://arxiv.org/abs/math-ph/0304004">3-enumerated alternating sign matrices</a>, arXiv:math-ph/0304004, 2003.

%F a(2m+1)=3^(m*(m+1))*prod(k=1, m, ((3*k-1)!/(m+k)!)^2), a(2m+2)=3^m*(3*m+2)!*m!/((2*m+1)!)^2*a(2m+1). - _Ralf Stephan_, Apr 24 2004

%p A059477 := proc(n) local i,j,t1; t1 := 3^(n^2-n)*2^(-n^2+n); for i from 1 to n do for j from 1 to n do if j-i mod 2 <> 0 then t1 := t1*(3*j-3*i+1)/(3*j-3*i); fi; od; od; t1; end;

%t a[0] = 1; a[n_?OddQ] := a[n] = 3^((1/2)*((n-1)/2 + 1)*(n-1)) * Product[(3*k - 1)!^2/(k + (n-1)/2)!^2, {k, 1, (n - 1)/2}];

%t a[n_?EvenQ] := (3^((n-2)/2)*((3*(n-2))/2 + 2)!*((n - 2)/2)! * a[n - 1])/(n - 1)!^2;

%t Table[a[n], {n, 0, 15}] (* _Jean-François Alcover_, Dec 28 2017, after _Ralf Stephan_ *)

%Y Cf. A005130.

%K nonn

%O 0,3

%A _N. J. A. Sloane_, Feb 04 2001

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 9 12:21 EDT 2024. Contains 372350 sequences. (Running on oeis4.)