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!)
A351930 Expansion of e.g.f. exp(x - x^4/24). 5
1, 1, 1, 1, 0, -4, -14, -34, -34, 190, 1366, 5446, 11056, -30744, -421420, -2403764, -7434244, 9782396, 296347996, 2257819420, 9461601856, -1690329584, -395833164264, -3872875071064, -20629371958040, -17208144880024, 893208132927176, 10962683317693576 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,6
LINKS
FORMULA
a(n) = n! * Sum_{k=0..floor(n/4)} (-1/24)^k * binomial(n-3*k,k)/(n-3*k)!.
D-finite with recurrence a(n) = a(n-1) - binomial(n-1,3) * a(n-4) for n > 3.
MAPLE
a:= proc(n) option remember; `if`(n=0, 1,
`if`(n<4, 0, -a(n-4)*binomial(n-1, 3))+a(n-1))
end:
seq(a(n), n=0..27); # Alois P. Heinz, Feb 26 2022
PROG
(PARI) my(N=40, x='x+O('x^N)); Vec(serlaplace(exp(x-x^4/4!)))
(PARI) a(n) = n!*sum(k=0, n\4, (-1/4!)^k*binomial(n-3*k, k)/(n-3*k)!);
(PARI) a(n) = if(n<4, 1, a(n-1)-binomial(n-1, 3)*a(n-4));
CROSSREFS
Sequence in context: A228272 A011935 A266020 * A185441 A032645 A098942
KEYWORD
sign
AUTHOR
Seiichi Manyama, Feb 26 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 March 29 06:34 EDT 2024. Contains 371265 sequences. (Running on oeis4.)