OFFSET
0,3
COMMENTS
This is also the (2,2) element of the product matrix after multiplying the unit matrix from the left by the matrices (0,-1;j-1,2j-2) in the order j=2 to n.
LINKS
Robert Israel, Table of n, a(n) for n = 0..404
FORMULA
E.g.f.: exp(x/2) (1-2x)^(1/4) Int_{0..x} exp(-t/2) (1-2t)^(-5/4) dt satisfies the d.e. (1-2x) y' + x y = 1, y(0)=0. - Robert Israel, Jun 11 2018
MAPLE
f:= gfun:-rectoproc({a(n)=2*(n-1)*a(n-1) -(n-1)*a(n-2), a(0)=0, a(1)=1}, a(n), remember):
map(f, [$0..50]); # Robert Israel, Jun 11 2018
MATHEMATICA
M[n_] := {{0, -1}, {(n - 1), 2*(n - 1)}};
v[1] = {0, 1};
v[n_] := v[n] = M[n].v[n - 1];
a = Table[Abs[v[n][[1]]], {n, 1, 25}]
(* Second program: *)
Nest[Append[#, 2 (Length[#] - 1) Last[#] - (Length[#] - 1) #[[-2]]] &, {0, 1}, 17] (* Michael De Vlieger, Jun 11 2018 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Jun 15 2005
EXTENSIONS
Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009
STATUS
approved