|
%I #2 Mar 30 2012 17:30:38
%S 4,-20,-216,2025,24457,-661745,-21930489,485222400,12094491106,
%T -594800640896,-32850150466188,1138086428486400,42791463719713975,
%U -3042278237035388153,-123027745203325414816,5708406518410582200000,275201338468042020170179
%N Determinant of n X n matrix whose rows are cyclic permutations of 4..Composite(n).
%e a(3) = -216 because this is the determinant of [ (4,6,8), (6,8,4), (8,4,6) ]
%t Composite[ n_Integer ] := FixedPoint[ n + PrimePi[ # ] + 1 &, n + PrimePi[ n ] + 1 ]; f[ n_ ] := Module[ {a = Table[ Composite[ i ], {i, 1, n} ], m = {}, k = 0}, While[ k < n, m = Append[ m, RotateLeft[ a, k ] ]; k++ ]; Det[ m ] ]; Table[ f[ n ], {n, 1, 16} ]
%Y Cf. A052182, A002808.
%K easy,sign
%O 1,1
%A _Robert G. Wilson v_, Jan 24 2002
|
