|
Search: id:A071081
|
|
|
| A071081 |
|
Determinant of the n X n matrix whose element (i,j) equals the |i-j|_th composite number, or 0 if i=j. |
|
+0
1
|
|
| 0, -16, 192, -1904, 16416, -134608, 1102920, -8971103, 69262338, -527129920, 4002967800, -30263030000, 218133853800, -1565386817920, 11130108480678, -75244171093875, 496516351214832, -3261752198331472, 21401161780748720, -140093238345715827
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; f[n_] := Det[ Table[ If[i == j, 0, Composite[ Abs[i - j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 20}]
|
|
CROSSREFS
|
Sequence in context: A004333 A016237 A036735 this_sequence A000767 A053539 A120994
Adjacent sequences: A071078 A071079 A071080 this_sequence A071082 A071083 A071084
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 26 2002
|
|
|
Search completed in 0.002 seconds
|
