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 A087488 #25 Feb 14 2019 05:56:57 %S A087488 1,1,6,64,4744,536736 %N A087488 Number of n X n (-1,1)-matrices with all eigenvalues >= 0. %H A087488 B. D. McKay, F. E. Oggier, G. F. Royle, N. J. A. Sloane, I. M. Wanless and H. S. Wilf, <a href="https://arxiv.org/abs/math/0310423">Acyclic digraphs and eigenvalues of (0,1)-matrices</a>, arXiv:math/0310423 [math.CO], 2003. %H A087488 B. D. McKay, F. E. Oggier, G. F. Royle, N. J. A. Sloane, I. M. Wanless and H. S. Wilf, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL7/Sloane/sloane15.html">Acyclic digraphs and eigenvalues of (0,1)-matrices</a>, J. Integer Sequences, 7 (2004), #04.3.3. %H A087488 <a href="/index/Mat#binmat">Index entries for sequences related to binary matrices</a> %e A087488 For n = 2 the six matrices are (+ means +1, - means -1): %e A087488 ++ +- -- -+ +- ++ %e A087488 -- +- ++ -+ -+ ++ %e A087488 with eigenvalues %e A087488 00 00 00 00 20 20 respectively. %t A087488 a[n_] := Select[Partition[#, n] & /@ Tuples[{-1, 1}, {n^2}], AllTrue[ Eigenvalues[#], NonNegative]&] // Length; a[0] = 1; %t A087488 Do[Print[n, " ", a[n]], {n, 0, 5}] (* _Jean-François Alcover_, Feb 13 2019 *) %Y A087488 Cf. A086510, A003024, A055165, A085656. %K A087488 nonn,more,hard %O A087488 0,3 %A A087488 Frederique Oggier (frederique.oggier(AT)epfl.ch) and _N. J. A. Sloane_, Oct 24 2003 %E A087488 a(5) from _Jean-François Alcover_, Feb 13 2019