A067545 Determinant of an n X n matrix whose diagonal are the first n composite numbers and all other elements are 1's.

4, 23, 176, 1513, 14457, 166587, 2248791, 32564154, 503597430, 8788183110, 170834934690, 3490028350200, 74757188482200, 1750213790778600, 42713495459510400, 1084838134027536000, 28630810173210336000

Offset

1,1

Links

Table of n, a(n) for n=1..17.

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

Adjacent sequences: A067542 A067543 A067544 * A067546 A067547 A067548

Keyword

nonn

Author

Robert G. Wilson v, Jan 28 2002

Status

approved