A135212 a(n) = A078456(n)/A120271(n).

1, 1, 2, 4, 8, 576, 1152, 2304, 4608, 18432, 552960, 59719680, 2388787200, 100329062400, 200658124800, 802632499200, 1605264998400, 288947699712000, 6356849393664000, 444979457556480000, 10679506981355520000

Offset: 1

Author

Alexander Adamchuk, Nov 23 2007

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..250

Crossrefs

Cf. A078456, A120271.

Programs

Mathematica

Table[ Det[ DiagonalMatrix[ Table[ Prime[i+1]-1, {i, 1, n-1} ] ] + 1 ], {n, 1, 50} ] / Numerator[ Table[ Sum[ 1/(Prime[i]-1), {i, 1, n} ], {n, 1, 50}] ]

PARI

a(n) = matdet(matrix(n-1, n-1, j, k, if (j==k, prime(j+1), 1)))/numerator(sum(k=1, n, 1/(prime(k)-1))); \\ Michel Marcus, Oct 02 2016

Formula

a(n) = A078456(n)/A120271(n).