login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A204233 Permanent of the n-th principal submatrix of A204016. 2
0, 1, 4, 49, 792, 18953, 610796, 25648641, 1359184384, 88722005809, 6994262098260, 655126226755025, 71915748374032232, 9144536677714434105, 1333394182537641307324, 221002933797466121742433 (list; graph; refs; listen; history; text; internal format)
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 A121275 A329328

Adjacent sequences:  A204230 A204231 A204232 * A204234 A204235 A204236

KEYWORD

nonn

AUTHOR

Clark Kimberling, Jan 13 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 27 12:00 EST 2020. Contains 332305 sequences. (Running on oeis4.)