login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A352150 a(n) = Sum_{k=0..n-1} (-1)^k * binomial(n,k)^2 * (n-k-1)!. 1
0, 1, -3, 2, -6, -1, -5, 132, 1624, 17145, 174509, 1789842, 18659146, 196678143, 2057524963, 20460314396, 171030108768, 529697015489, -27050118799923, -1079945984126798, -30289996673371254, -765129844741436785, -18575997643525737477, -444653043972658034044 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
FORMULA
Sum_{n>=0} a(n) * x^n / (n!)^2 = BesselJ(0,2*sqrt(x)) * (Ei(x) - log(x) - gamma).
MATHEMATICA
Table[Sum[(-1)^k Binomial[n, k]^2 (n - k - 1)!, {k, 0, n - 1}], {n, 0, 23}]
nmax = 23; Assuming[x > 0, CoefficientList[Series[BesselJ[0, 2 Sqrt[x]] (ExpIntegralEi[x] - Log[x] - EulerGamma), {x, 0, nmax}], x]] Range[0, nmax]!^2
PROG
(PARI) a(n) = sum(k=0, n-1, (-1)^k * binomial(n, k)^2 * (n-k-1)!); \\ Michel Marcus, Mar 06 2022
CROSSREFS
Sequence in context: A248645 A344323 A368826 * A161826 A097887 A019761
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 06 2022
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 16 07:46 EDT 2024. Contains 375959 sequences. (Running on oeis4.)