A204233 Permanent of the n-th principal submatrix of A204016.

0, 1, 4, 49, 792, 18953, 610796, 25648641, 1359184384, 88722005809, 6994262098260, 655126226755025, 71915748374032232, 9144536677714434105, 1333394182537641307324, 221002933797466121742433

Offset: 1

Author

Clark Kimberling, Jan 13 2012

Keywords

• nonn

Crossrefs

Cf. A204016.

Programs

Mathematica

f[i_, j_] := Max[Mod[i, j], Mod[j, i]];
m[n_] := Table[f[i, j],
{i, 1, n}, {j, 1, n}]  (* A204016 *)
Permanent[m_] :=
  With[{a = Array[x, Length[m]]},
   Coefficient[Times @@ (m.a), Times @@ a]];
Table[Permanent[m[n]], {n, 1, 16}]  (* A204233 *)