login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A307783 The permanent of an n X n symmetric Toeplitz matrix M(n) whose first row consists of n, n-1, ..., 1. 3
1, 5, 62, 1472, 57228, 3300052, 264163120, 28004426240, 3796084024832, 640290996560896, 131495036625989504, 32300689159458652160, 9350873610168606862080, 3150550820854335942423808, 1222211647879605626853439488, 540858935979668390014623285248, 270804098518125729769134021574656 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

The matrix M(n) differs from that of A204235 in using for the first row the positive integers 1, 2,..., n in decreasing order in place of in increasing order (see examples).

The trace of the matrix M(n) is A000290(n).

The determinant of the matrix M(n) is A001792(n).

The sum of the k-th row of the matrix M(n) is A008867(n,k).

For n > k, the sum of the k-diagonal of the matrix M(n) is A055461(n,k).

LINKS

Vaclav Kotesovec, Table of n, a(n) for n = 1..35

Wikipedia, Toeplitz Matrix

EXAMPLE

For n = 1 the matrix M(1) is

  1

with permanent a(1) = 1.

For n = 2 the matrix M(2) is

  2, 1

  1, 2

with permanent a(2) = 5.

For n = 3 the matrix M(3) is

  3, 2, 1

  2, 3, 2

  1, 2, 3

with permanent a(3) = 62.

MAPLE

f:= proc(n) uses LinearAlgebra; Permanent(ToeplitzMatrix([i, i=n..1, -1)])) end proc: map(f, [$1..17]);

MATHEMATICA

b[i_]:=i; a[n_]:=Permanent[ToeplitzMatrix[Reverse[Array[b, n]], Reverse[Array[b, n ]]]]; Array[a, 17]

PROG

(PARI) {a(n) = matpermanent(matrix(n, n, i, j, n + 1 - max(i - j + 1, j - i + 1)))}

for(n=1, 20, print1(a(n), ", ")) \\ Vaclav Kotesovec, Apr 29 2019

CROSSREFS

Cf. A000290, A001792, A008867, A055461, A204235.

Sequence in context: A092823 A152031 A302181 * A319624 A182118 A111387

Adjacent sequences:  A307780 A307781 A307782 * A307784 A307785 A307786

KEYWORD

nonn

AUTHOR

Stefano Spezia, Apr 28 2019

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 12 23:52 EDT 2022. Contains 356077 sequences. (Running on oeis4.)