login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A238913 Number of self-inverse permutations p on [n] where the maximal displacement of an element equals 2. 2
0, 0, 0, 1, 3, 7, 16, 35, 74, 153, 312, 629, 1257, 2495, 4926, 9684, 18972, 37064, 72243, 140547, 273007, 529626, 1026369, 1987260, 3844919, 7434542, 14368115, 27756229, 53600223, 103476920, 199715716, 385381128, 743520256, 1434272329, 2766414007, 5335290607 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,5

LINKS

Joerg Arndt and Alois P. Heinz, Table of n, a(n) for n = 0..1000

FORMULA

G.f.: x^3*(x+1)/((x^2+x-1)*(x^4+x^3+x^2+x-1)).

EXAMPLE

a(3) = 1: 321.

a(4) = 3: 1432, 3214, 3412.

a(5) = 7: 12543, 14325, 14523, 21543, 32145, 32154, 34125.

a(6) = 16: 123654, 125436, 125634, 132654, 143256, 143265, 145236, 213654, 215436, 215634, 321456, 321465, 321546, 321654, 341256, 341265.

MAPLE

gf:= x^3*(1+x)/((x^2+x-1)*(x^4+x^3+x^2+x-1)):

a:= n-> coeff(series(gf, x, n+1), x, n):

seq(a(n), n=0..40);

MATHEMATICA

CoefficientList[Series[x^3 (x + 1)/((x^2 + x - 1) (x^4 + x^3 + x^2 + x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Mar 09 2014 *)

CROSSREFS

Column k=2 of A238889.

Sequence in context: A240740 A239257 A268394 * A133124 A104004 A101509

Adjacent sequences:  A238910 A238911 A238912 * A238914 A238915 A238916

KEYWORD

nonn

AUTHOR

Joerg Arndt and Alois P. Heinz, Mar 07 2014

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 16 21:59 EST 2019. Contains 320200 sequences. (Running on oeis4.)