OFFSET
0,2
COMMENTS
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..36
EXAMPLE
For n = 1 the matrix M(1) is
2
with permanent a(1) = 2.
For n = 2 the matrix M(2) is
2, 3
4, 6
with permanent a(2) = 24.
For n = 3 the matrix M(3) is
2, 3, 5
4, 6, 10
6, 9, 15
with permanent a(3) = 1080.
MAPLE
with(LinearAlgebra):
a:= n-> `if`(n=0, 1, Permanent(Matrix(n, (i, j)-> i*ithprime(j)))):
seq(a(n), n=0..14); # Alois P. Heinz, Dec 04 2019
MATHEMATICA
M[i_, j_, n_] := i*Prime[j]; a[n_] := If[n==0, 1, Permanent[Table[M[i, j, n], {i, n}, {j, n}]]]; Array[a, 14, 0]
PROG
(PARI) a(n) = matpermanent(matrix(n, n, i, j, i*prime(j))); \\ Michel Marcus, Dec 04 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Dec 01 2019
EXTENSIONS
a(0) = 1 prepended by Michel Marcus, Dec 04 2019
STATUS
approved