|
%I #18 Feb 03 2024 16:16:27
%S 1,2,19,642,52046,8012520,1939769432,718866359440,368802888131376,
%T 259389489641608736,238655237778415792704,270892331023142039759488,
%U 377446142834845276550334720,626883335555480085495326908416,1230454868521341442901679438859264
%N Permanent of Hankel matrix of the first 2n-1 prime numbers.
%H Alois P. Heinz, <a href="/A290302/b290302.txt">Table of n, a(n) for n = 0..22</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Hankel_matrix">Hankel matrix</a>.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Permanent_(mathematics)">Permanent (mathematics)</a>.
%p with(LinearAlgebra):
%p a:= n-> `if`(n=0, 1, Permanent(Matrix(n, (i, j)-> ithprime(i+j-1)))):
%p seq(a(n), n=0..16);
%t a[n_]:=Permanent[Table[Prime[i+j-1],{i,n},{j,n}]]; Join[{1}, Array[a, 14]] (* _Stefano Spezia_, Feb 03 2024 *)
%Y Cf. A024356.
%K nonn
%O 0,2
%A _Alois P. Heinz_, Jul 26 2017
|
