|
|
A290302
|
|
Permanent of Hankel matrix of the first 2n-1 prime numbers.
|
|
5
|
|
|
1, 2, 19, 642, 52046, 8012520, 1939769432, 718866359440, 368802888131376, 259389489641608736, 238655237778415792704, 270892331023142039759488, 377446142834845276550334720, 626883335555480085495326908416, 1230454868521341442901679438859264
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
with(LinearAlgebra):
a:= n-> `if`(n=0, 1, Permanent(Matrix(n, (i, j)-> ithprime(i+j-1)))):
seq(a(n), n=0..16);
|
|
MATHEMATICA
|
a[n_]:=Permanent[Table[Prime[i+j-1], {i, n}, {j, n}]]; Join[{1}, Array[a, 14]] (* Stefano Spezia, Feb 03 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|