OFFSET
1,2
COMMENTS
LINKS
Colin Barker, Table of n, a(n) for n = 1..150
FORMULA
a(n) = Det[ DiagonalMatrix[ Table[ i*(i+1)(i+2)/6 - 1, {i, 1, n} ] ] + 1 ].
a(n) = Product[(j-3)*(j^2+2)/3!,{j,4,n+2}].
a(n) = Product[(k+1)*(k^2+8*k+18)/3!,{k,0,n-2}] = Product[A062748(k),{k,0,n-2}].
a(n) ~ sqrt(Pi) * sinh(Pi*sqrt(2)) * n^(3*n + 9/2) / (11 * 2^(n-1) * 3^(n+1) * exp(3*n)). - Vaclav Kotesovec, Apr 17 2018
EXAMPLE
The matrix begins:
1 1 1 1 1 1 1 ...
1 4 1 1 1 1 1 ...
1 1 10 1 1 1 1 ...
1 1 1 20 1 1 1 ...
1 1 1 1 35 1 1 ...
1 1 1 1 1 56 1 ...
MAPLE
a:= proc(n) option remember; `if`(n<2, 1,
a(n-1) *(6+4*n+n^2)*(n-1)/6)
end:
seq(a(n), n=1..20); # Alois P. Heinz, Nov 15 2015
MATHEMATICA
Table[ Det[ DiagonalMatrix[ Table[ i*(i+1)(i+2)/6 - 1, {i, 1, n} ] ] + 1 ], {n, 1, 20} ]
Table[Product[(k-3)*(k^2+2)/3!, {k, 4, n+2}], {n, 1, 20}]
PROG
(PARI) a(n) = matdet(matrix(n, n, i, j, if(i==j, i*(i+1)*(i+2)/6, 1))) \\ Colin Barker, Nov 13 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 20 2006
EXTENSIONS
a(15) and a(16) from Colin Barker, Nov 13 2015
STATUS
approved