|
| |
|
|
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; internal format)
|
|
|
|
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: A068965 A185672 A054474 * A032081 A034235 A000847
Adjacent sequences: A066914 A066915 A066916 * A066918 A066919 A066920
|
|
|
KEYWORD
| easy,sign
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 24 2002
|
| |
|
|
