A069191 Determinant of n X n matrix defined by m(i,j)=1 if i+j is a prime, m(i,j)=0 otherwise.
1, -1, -1, 0, 1, -1, -4, 4, 0, 0, 0, 0, 0, 0, 0, 4, 4, -9, -25, 121, 64, -576, -2304, 3600, 3136, -256, -144, 961, 24025, -47089, -345744, 1317904, 107584, -26896, -30976, 17424, 30976, -156025, -76729, 485809, 478864, -36481, -837225, 5776, 517198564, -15791440896, -16404230241, 45746793225
Offset: 1
Keywords
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..500
- Anon, Proof that abs(a(n)) is always a perfect square
Crossrefs
Cf. A073364.
Programs
-
Mathematica
f[n_] := Det[ Table[ If[ PrimeQ[i + j], 1, 0], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 45}]
Comments