|
|
A228638
|
|
Determinant of the n X n matrix with (i,j)-entry equal to 1 or 0 according as |i-j| is prime or not.
|
|
1
|
|
|
0, 0, 0, 1, 2, -5, 12, -28, 32, -36, -44, -51, 90, -129, -572, 560, -228, -1265, -3752, -7344, -7168, -5200, -1800, 22225, -223908, -3353049, -16485870, -46205099, 57203700, 262750475, -1758254750, -4839494944, -8039222088, 8145218368, 45619374914, -1229448140891, -1178481640872, -942903100573, 1256162791268, -805110454771
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
COMMENTS
|
Conjecture: a(n) is nonzero for any n > 3.
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 0 since |1-1| = 0 is not a prime.
|
|
MATHEMATICA
|
a[n_]:=Det[Table[If[PrimeQ[Abs[i-j]]==True, 1, 0], {i, 1, n}, {j, 1, n}]]
Table[a[n], {n, 1, 50}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|