OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..224
FORMULA
MAPLE
a:= proc(n) option remember; `if`(n<3, [1, 3, 32][n+1],
((16*n^3-16*n^2-n+2)*a(n-1)-(n-1)*(16*n^3-20*n^2+6*n-1)
*a(n-2)+2*(2*n-1)*(4*n+1)*(n-1)*(n-2)*a(n-3))/(4*n-3))
end:
seq(a(n), n=0..15);
# second Maple program:
a:= proc(n) option remember; `if`(n=0, 1,
a(n-1) -(n-1)! +(2*n-1)! +(2*n)!)
end:
seq(a(n), n=0..15);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jul 11 2024
STATUS
approved