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 A071063 #4 Oct 03 2013 09:37:42 %S A071063 0,0,-1,0,1,0,-9,-8,0,0,0,0,0,0,0,-8,9,14,-71,-310,281,2000,-8004, %T A071063 -9200,8836,720,-409,-2710,67766,110501,-1117396,-4130160,381136, %U A071063 91920,-111376,-36080,144420,555581,-311814,-1831958,1876689,-1648,-3584425,4768308,1971637204,53664688220 %N A071063 Determinant of n X n matrix defined by m(i,j) = 0 if i+j is a prime, m(i,j) = 1 otherwise. %C A071063 Let h(i,j) be the matrix defined in A069191, then a(n)=((-1)^n)*Det(h(i,j)-J), where J is the n X n matrix with only 1's as its elements. %t A071063 a[n_] := Det[Table[If[PrimeQ[i + j], 0, 1], {i, 1, n}, {j, 1, n}]] Table[a[n], {n, 1, 50}] %Y A071063 Cf. A069191. %K A071063 sign %O A071063 1,7 %A A071063 _Santi Spadaro_, May 26 2002