|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A083355 A141763 A025550 * A004041 A089465 A106174
Adjacent sequences: A067542 A067543 A067544 * A067546 A067547 A067548
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 28 2002
|
| |
|
|
