%I #28 Sep 25 2019 06:18:18
%S 1,1,10,3206,70437736,183833539918302,87416643970622777251260,
%T 10762624962747767163398087106191432,
%U 462465255409000135911575652811547463563975232544,8991898462406411877745541835505866750273920745448784932109344640
%N Permanent of the n X n matrix M_n = [m_n(i,j)] with m_n(i,j) = Stirling2(n+i,j) for 1<=i,j<=n.
%H Vaclav Kotesovec, <a href="/A225764/b225764.txt">Table of n, a(n) for n = 0..28</a> (terms 0..22 from Alois P. Heinz)
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Permanent_(mathematics)">Permanent (mathematics)</a>
%e a(3) = Permanent([1, 7, 6; 1, 15, 25; 1, 31, 90]) = 3206.
%p with(LinearAlgebra):
%p a:= n-> `if`(n=0, 1, Permanent(Matrix(n, (i, j)-> Stirling2(n+i, j)))):
%p seq(a(n), n=0..10);
%t a[n_] := Permanent[Table[StirlingS2[n+i, j], {i, n}, {j, n}]]; a[0] = 1; Table[a[n], {n, 0, 10}] (* _Jean-François Alcover_, Jan 07 2016 *)
%Y Cf. A036740 (determinant of M_n).
%Y Cf. A008277, A048993.
%K nonn
%O 0,3
%A _Alois P. Heinz_, Jul 25 2013
|