A066917 Determinant of n X n matrix whose rows are cyclic permutations of 4..Composite(n).

4, -20, -216, 2025, 24457, -661745, -21930489, 485222400, 12094491106, -594800640896, -32850150466188, 1138086428486400, 42791463719713975, -3042278237035388153, -123027745203325414816, 5708406518410582200000, 275201338468042020170179

Offset

1,1

Links

Table of n, a(n) for n=1..17.

Example

a(3) = -216 because this is the determinant of [ (4,6,8), (6,8,4), (8,4,6) ]

Mathematica

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} ]

Crossrefs

Cf. A052182, A002808.

Sequence in context: A368455 A213144 A215873 * A280078 A032081 A034235

Adjacent sequences: A066914 A066915 A066916 * A066918 A066919 A066920

Keyword

easy,sign

Author

Robert G. Wilson v, Jan 24 2002

Status

approved