OFFSET
0,3
REFERENCES
Richard Bronson, Schaum's Outline of Modern Introductory Differential Equations, MacGraw-Hill, New York,1973, page 99, solved problem 19.1.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..750
FORMULA
G.f.: (1 - G(0))*x^4/(1+x) +1 +x -2*x^2 -x^3, where G(k)= 1 + x*(2*k+1)/(1 - x/(x + 1/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, Jun 07 2013
From G. C. Greubel, Jul 10 2021: (Start)
a(2*n) = (-2)^n*[n<2], for n >= 0.
a(2*n+1) = 2^n*Pochhammer(n, 1/2)/(1-2*n), for n >= 0.
a(2*n+1) = (-1)^n * A330797(n).
D-finite with recurrence a(n) = (n-4)*a(n-2) with a(0) = a(1) = 1.
G.f.: 1 + x - 2*x^2 - sqrt(Pi/2)*x^2*exp(-1/(2*x^2))*erfi(1/(sqrt(2)*x)). (End)
MAPLE
b[0]:=1: b[1]:=1: for n from 2 to 40 do b[n]:=(n-4)*b[n-2]/(n*(n-1)) od: seq(n!*b[n], n=0..40);
MATHEMATICA
b[n_]:= b[n]= If[n<2, 1, (n-4)*b[n-2]/(n*(n-1))]; a[n_]:= n!*b[n];
Table[a[n], {n, 0, 30}]
PROG
(Magma) [n le 2 select 1 else (n-5)*Self(n-2): n in [1..30]]; // G. C. Greubel, Jul 11 2021
(Sage)
def a(n): return 1 if (n<2) else (n-4)*a(n-2)
[a(n) for n in (0..30)] # G. C. Greubel, Jul 11 2021
CROSSREFS
KEYWORD
sign
AUTHOR
Roger L. Bagula, Sep 24 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 01 2006 and Nov 24 2006
STATUS
approved