|
Search: id:A066917
|
|
|
| A066917 |
|
Determinant of n X n matrix whose rows are cyclic permutations of 4..Composite(n). |
|
+0
1
|
|
| 4, -20, -216, 2025, 24457, -661745, -21930489, 485222400, 12094491106, -594800640896, -32850150466188, 1138086428486400, 42791463719713975, -3042278237035388153, -123027745203325414816, 5708406518410582200000, 275201338468042020170179
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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: A032333 A068965 A054474 this_sequence A032081 A034235 A000847
Adjacent sequences: A066914 A066915 A066916 this_sequence A066918 A066919 A066920
|
|
KEYWORD
|
easy,sign
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 24 2002
|
|
|
Search completed in 0.002 seconds
|
