A336292 a(n) = (n!)^2 * Sum_{k=1..n} (-1)^(n-k) / (k * ((n-k)!)^2).

0, 1, -2, 3, 8, 305, 10734, 502747, 30344992, 2307890097, 216571514030, 24619605092291, 3337294343698248, 532148381719443073, 98646472269855762238, 21041945289232131607995, 5118447176652195630775424, 1408601897794844346184122017, 435481794298015565250651718302

Offset

0,3

Links

Table of n, a(n) for n=0..18.

Formula

Sum_{n>=0} a(n) * x^n / (n!)^2 = -log(1 - x) * BesselJ(0,2*sqrt(x)).

Mathematica

Table[(n!)^2 Sum[(-1)^(n - k)/(k ((n - k)!)^2), {k, 1, n}], {n, 0, 18}]
nmax = 18; CoefficientList[Series[-Log[1 - x] BesselJ[0, 2 Sqrt[x]], {x, 0, nmax}], x] Range[0, nmax]!^2

Prog

(PARI) a(n) = (n!)^2 * sum(k=1, n, (-1)^(n-k) / (k * ((n-k)!)^2)); \\ Michel Marcus, Jul 17 2020

Crossrefs

Cf. A002741, A009940, A336291.

Sequence in context: A371225 A132502 A113840 * A285088 A075849 A005604

Adjacent sequences: A336289 A336290 A336291 * A336293 A336294 A336295

Keyword

sign

Author

Ilya Gutkovskiy, Jul 16 2020

Status

approved