A238685 a(n) = n! * A129505(n) * (-1)^(n+1).

1, -6, 210, -17640, 2693880, -649479600, 226750764240, -108116216208000, 67478689070432640, -53382381970299782400, 52192613508738839136000, -61794396463636399635072000, 87121906773549083421777792000, -144222462676882552982237906688000

Offset

1,2

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..200

Formula

a(n) = A000142(n) * A008275(2*n-1,n).

a(n) = A048594(2*n-1,n).

Mathematica

Array[#!*StirlingS1[2 # - 1, #] &, 14] (* Michael De Vlieger, Jan 24 2022 *)

Prog

(Haskell)
a238685 n = a000142 n * a008275 (2 * n - 1) n
(PARI) a(n) = n!*stirling(2*n-1, n, 1); \\ Michel Marcus, Jan 24 2022

Crossrefs

Cf. A000142, A008275, A048594, A129505.

Sequence in context: A087639 A028350 A359761 * A346017 A099788 A126676

Adjacent sequences: A238682 A238683 A238684 * A238686 A238687 A238688

Keyword

sign

Author

Reinhard Zumkeller, Mar 02 2014

Status

approved