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.
%I A055548 #30 Feb 16 2025 08:32:43 %S A055548 2,12,80,2096,49792,3449088,357236224,84783217408 %N A055548 Number of normal n X n (-1,1)-matrices. %C A055548 Obviously a(n) <= 2^(n^2) = A002416(n) - _R. J. Mathar_, Mar 14 2006 %D A055548 W. H. Press et al., Numerical Recipes, Cambridge, 1986; Chapter 11. %H A055548 Georg Muntingh, <a href="/A055548/a055548.txt">Sage code for computing higher order entries</a> %H A055548 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/NormalMatrix.html">Normal matrix.</a> %o A055548 (PARI) NormaQ(a,n) = { my(aT) ; aT=mattranspose(a) ; return( a*aT == aT*a ); } %o A055548 combMat(no,n) = { my(a,noshif) ; a = matrix(n,n) ; noshif=no ; for(co=1,n, for(ro=1,n, if( (noshif %2)== 1,a[ro,co] = 1, a[ro,co] = -1) ; noshif = floor(noshif/2) ; ) ) ; return(a) ; } %o A055548 { for (n = 1, 10, count = 0; a = matrix(n,n) ; for( no=0,2^(n^2)-1, a = combMat(no,n) ; count += NormaQ(a,n) ; /* if(no%1000==0,print(n," ",(no/2^(n^2)+0.)," ",count)) ; */ ) ; print(count) ; ) } \\ _R. J. Mathar_, Mar 14 2006 %Y A055548 Cf. A055547, A055549. %K A055548 nonn,more,hard %O A055548 1,1 %A A055548 _Eric W. Weisstein_ %E A055548 a(5) from _R. J. Mathar_, Mar 14 2006 %E A055548 a(6)-a(7) from _Georg Muntingh_, Jan 31 2014 %E A055548 Offset corrected and a(8) from _Bert Dobbelaere_, Sep 21 2020