OFFSET
0,3
REFERENCES
A. E. Jolliffe, Continued Fractions, in Encyclopaedia Britannica, 11th ed., pp. 30-33; see p. 31.
MAPLE
f := proc(n) local a, b, t1, t2, t3, i, j, k; option remember; a := 1; b := 1; if n = 0 then RETURN(a); elif n = 1 then RETURN(b); else RETURN(2*f(n - 1) + (2*n - 1)^2*f(n - 2)); fi; end: seq(f(n), n=0..20); # adapted to offset 0 by Georg Fischer, Dec 23 2019
MATHEMATICA
RecurrenceTable[{a[0]==a[1]==1, a[n]==2*a[n-1] + (2n-1)^2*a[n-2]}, a, {n, 0, 20}]
(* Harvey P. Dale, Nov 15 2018, adapted to offset 0 by Georg Fischer, Dec 23 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 19 2002
EXTENSIONS
Definition adapted to offset 0 by Georg Fischer, Dec 23 2019
STATUS
approved