OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..250
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}] ]
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Nov 23 2007
STATUS
approved