|
|
A066917
|
|
Determinant of n X n matrix whose rows are cyclic permutations of 4..Composite(n).
|
|
0
|
|
|
4, -20, -216, 2025, 24457, -661745, -21930489, 485222400, 12094491106, -594800640896, -32850150466188, 1138086428486400, 42791463719713975, -3042278237035388153, -123027745203325414816, 5708406518410582200000, 275201338468042020170179
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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: A054474 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
|
|
|
|