|
|
A002525
|
|
Number of permutations according to distance.
(Formerly M1203 N0463)
|
|
5
|
|
|
0, 1, 2, 4, 10, 24, 55, 128, 300, 700, 1632, 3809, 8890, 20744, 48406, 112960, 263599, 615120, 1435416, 3349624, 7816528, 18240289, 42564706, 99327052, 231785058, 540883000, 1262179815, 2945365040, 6873169028, 16038912628
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
REFERENCES
|
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
|
|
MATHEMATICA
|
a[n_ /; n <= 2] := n; a[3]=4; a[4]=10; a[n_] := a[n] = 2*a[n-1] + 2*a[n-3] - a[n-5]; Table[a[n], {n, 0, 29}] (* Jean-François Alcover, Mar 12 2014 *)
|
|
PROG
|
(PARI) a(n) = {z = x + x*O(x^n); gf = z/(1-2*z-2*z^3+z^5); polcoeff(gf, n); } \\ Michel Marcus, Mar 11 2014
(Magma) I:=[0, 1, 2, 4, 10]; [n le 5 select I[n] else 2*Self(n-1) +2*Self(n-3) -Self(n-5): n in [1..41]]; // G. C. Greubel, Jan 22 2022
(Sage) [( x/(1-2*x-2*x^3+x^5) ).series(x, n+1).list()[n] for n in (0..40)] # G. C. Greubel, Jan 22 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|