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,3

Links

Table of n, a(n) for n=1..16.

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 *)

Crossrefs

Cf. A204016.

Sequence in context: A086094 A055793 A202829 * A144656 A374878 A121275

Adjacent sequences: A204230 A204231 A204232 * A204234 A204235 A204236

Keyword

nonn

Author

Clark Kimberling, Jan 13 2012

Status

approved