%I #9 Jan 25 2023 17:50:56
%S 1,0,1,0,196,0,65028096,0,1540115470208876544,0,
%T 861787404007697994335390269440000,0,
%U 3024149801599872168810739614376506649075557335040000,0,25610879735369429335666530857036523659955793212506655095941286757767577600000000
%N a(n) = det(M) where M is an n X n matrix with M[i,j] = i^j - j^i.
%F a(2n) = A071410(n), a(2n+1) = 0. - _Alois P. Heinz_, Jan 25 2023
%t f[n_] := Table[i^j - j^i, {i, 1, n}, {j, 1, n}]; Table[Det[f[n]], {n, 1, 15}]
%Y Cf. A071410.
%K nonn
%O 0,5
%A _José María Grau Ribas_, Apr 01 2010
%E a(0)=1 prepended by _Alois P. Heinz_, Jan 25 2023
|