The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A204563

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A204563

Permanent of the n-th principal submatrix of A204562.
(history; published version)

#6 by Charles R Greathouse IV at Thu Jul 12 00:39:59 EDT 2012

NAME

Permanent of the nth n-th principal submatrix of A204562.

Discussion

Thu Jul 12

00:39

OEIS Server: https://oeis.org/edit/global/1814

#5 by Russ Cox at Fri Mar 30 18:58:08 EDT 2012

AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Jan 16 2012

Discussion

Fri Mar 30

18:58

OEIS Server: https://oeis.org/edit/global/285

#4 by T. D. Noe at Mon Jan 16 22:54:49 EST 2012

STATUS

proposed

approved

#3 by Clark Kimberling at Mon Jan 16 22:18:07 EST 2012

STATUS

editing

proposed

#2 by Clark Kimberling at Mon Jan 16 22:14:04 EST 2012

NAME

allocated for Clark KimberlingPermanent of the nth principal submatrix of A204562.

DATA

1, 6, 40, 462, 7907, 206846, 6670844, 277121424, 14390352620, 947692403880, 72583382625408, 6575489103737088, 696011636400194304, 86805454700886653952, 12166531324546826156544, 1933901484265841951655936

OFFSET

1,2

MATHEMATICA

f[i_, j_] :=

Floor[(2 i + 2 j + 6)/4] - Floor[(i + j + 3)/4];

m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]

TableForm[m[8]] (* 8x8 principal submatrix *)

Flatten[Table[f[i, n + 1 - i],

{n, 1, 14}, {i, 1, n}]] (* A204562 *)

Permanent[m_] :=

With[{a = Array[x, Length[m]]},

Coefficient[Times @@ (m.a), Times @@ a]];

Table[Permanent[m[n]], {n, 1, 17}] (* A204563 *)

CROSSREFS

Cf. A204562, A204551.

KEYWORD

allocated

nonn

AUTHOR

Clark Kimberling (ck6(AT)evansville.edu), Jan 16 2012

STATUS

approved

editing

#1 by Clark Kimberling at Mon Jan 16 17:33:22 EST 2012

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved