|
|
A193778
|
|
Number of signed permutations of length 2n invariant under D and D'bar.
|
|
2
|
|
|
1, 2, 8, 32, 160, 832, 4864, 29696, 195584, 1341440, 9723904, 73105408, 574062592, 4657184768, 39165624320, 339133595648, 3028204650496, 27760959422464, 261439835078656, 2521668748574720, 24912764963127296, 251559029812232192, 2595790316527157248
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
See section 6 in the Hardt reference.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 2*a(n-1) + 4*(n - 1)*a(n-2).
a(n) = 2^n * hypergeom([-n/2, (1 - n)/2], [], 2).
a(n) = n! * [x^n] exp(2*x*(x + 1)). (End)
|
|
EXAMPLE
|
For n = 1, the permutations of length 2 are (-1, 2) and (1, -2).
|
|
MAPLE
|
exp(2*x*(x + 1)): series(%, x, 23):
|
|
MATHEMATICA
|
RecurrenceTable[{a[0]==1, a[1]==2, a[n]==2a[n-1]+4(n-1)a[n-2]}, a, {n, 30}] (* Harvey P. Dale, Mar 14 2021 *)
a[n_] := 2^n HypergeometricPFQ[{-n/2, (1-n)/2}, {}, 2];
|
|
PROG
|
(PARI) seq(n)={my(v=vector(n+1)); v[1]=1; v[2]=2; for(n=2, n, v[n+1] = 2*v[n] + 4*(n-1)*v[n-1]); v} \\ Andrew Howroyd, Dec 08 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|