The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A309619 a(n) = Sum_{k=0..floor(n/2)} k! * (n - 2*k)!. 5
 1, 1, 3, 7, 28, 128, 754, 5178, 41124, 368220, 3670872, 40290744, 482716896, 6267697920, 87664818960, 1313983544400, 21010949076960, 357007805477280, 6423473819220480, 122003441554176000, 2439346762501367040, 51213306647556506880, 1126446562222595147520 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS Vaclav Kotesovec, Table of n, a(n) for n = 0..448 FORMULA G.f.: B(x)*B(x^2), where B(x) is g.f. of A000142. a(n) ~ n! * (1 + 1/n^2 + 1/n^3 + 3/n^4 + 13/n^5 + 57/n^6 + 271/n^7 + 1467/n^8 + 8905/n^9 + 58965/n^10 + ...), for coefficients see A326984. MATHEMATICA nmax = 25; CoefficientList[Series[Sum[k!*x^k, {k, 0, nmax}]*Sum[k!*x^(2*k), {k, 0, nmax}], {x, 0, nmax}], x] Table[Sum[k!*(n-2*k)!, {k, 0, Floor[n/2]}], {n, 0, 25}] PROG (PARI) a(n) = sum(k=0, n\2, k! * (n - 2*k)!); \\ Michel Marcus, Dec 08 2020 CROSSREFS Cf. A000142, A003149, A096161, A107713, A309618, A339515. Sequence in context: A289605 A296533 A321719 * A143948 A252787 A018989 Adjacent sequences:  A309616 A309617 A309618 * A309620 A309621 A309622 KEYWORD nonn AUTHOR Vaclav Kotesovec, Aug 10 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 31 06:15 EDT 2021. Contains 346369 sequences. (Running on oeis4.)