OFFSET
1,7
COMMENTS
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.
MATHEMATICA
a[n_] := Det[Table[If[PrimeQ[i + j], 0, 1], {i, 1, n}, {j, 1, n}]] Table[a[n], {n, 1, 50}]
CROSSREFS
KEYWORD
sign
AUTHOR
Santi Spadaro, May 26 2002
STATUS
approved