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
KEYWORD
easy,sign
AUTHOR
Robert G. Wilson v, Jan 24 2002
STATUS
approved