cp's OEIS Frontend

A303001 a(n) = permanent of the n X n matrix with entries a(i, i) = i*(i+1)/2 and a(i, j) = 1 elsewhere.

%I A303001 #10 Dec 21 2018 08:07:45
%S A303001 1,4,30,356,6106,142760,4363848,168986136,8087082144,468807362736,
%T A303001 32379640476000,2627735592279600,247610398718738640,
%U A303001 26815386224063189760,3307855985755600598400,461149884030679844958720,72151124506962747825006720,12590610689213961622942752000
%N A303001 a(n) = permanent of the n X n matrix with entries a(i, i) = i*(i+1)/2 and a(i, j) = 1 elsewhere.
%H A303001 Vaclav Kotesovec, <a href="/A303001/b303001.txt">Table of n, a(n) for n = 1..36</a>
%t A303001 Table[Permanent[DiagonalMatrix[Table[i*(i+1)/2-1, {i, 1, n}]] + 1], {n, 1, 20}]
%o A303001 (PARI) {a(n) = matpermanent(matrix(n, n, i, j, if(i==j, i*(i+1)/2, 1)))}
%o A303001 for(n=1, 20, print1(a(n), ", ")) \\ _Vaclav Kotesovec_, Dec 20 2018
%Y A303001 Cf. A007840, A010791, A067550, A118714, A303000.
%K A303001 nonn
%O A303001 1,2
%A A303001 _Vaclav Kotesovec_, Apr 17 2018