%I #6 Mar 28 2015 22:36:30
%S 0,-16,192,-1904,16416,-134608,1102920,-8971103,69262338,-527129920,
%T 4002967800,-30263030000,218133853800,-1565386817920,11130108480678,
%U -75244171093875,496516351214832,-3261752198331472,21401161780748720,-140093238345715827
%N Determinant of the n X n matrix whose element (i,j) equals the |i-j|-th composite number, or 0 if i=j.
%t 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}]
%K sign
%O 1,2
%A _Robert G. Wilson v_, May 26 2002
|