login
A067545
Determinant of an n X n matrix whose diagonal are the first n composite numbers and all other elements are 1's.
0
4, 23, 176, 1513, 14457, 166587, 2248791, 32564154, 503597430, 8788183110, 170834934690, 3490028350200, 74757188482200, 1750213790778600, 42713495459510400, 1084838134027536000, 28630810173210336000
OFFSET
1,1
EXAMPLE
The determinant begins:
4 1 1 1 1 1 1 ...
1 6 1 1 1 1 1 ...
1 1 8 1 1 1 1 ...
1 1 1 9 1 1 1 ...
1 1 1 1 10 1 1 ...
1 1 1 1 1 12 1 ...
MATHEMATICA
Composite[ n_Integer ] := FixedPoint[ n + PrimePi[ # ] + 1 &, n + PrimePi[ n ] + 1 ]; Table[ Det[ DiagonalMatrix[ Table[ Composite[ i ] - 1, {i, 1, n} ] ] + 1 ], {n, 1, 20} ]
CROSSREFS
Sequence in context: A141763 A025550 A350669 * A004041 A220353 A089465
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 28 2002
STATUS
approved