OFFSET
8,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 8..200
EXAMPLE
a(8) = 1: 12345678.
MAPLE
b:= proc(n) option remember; `if`(n<8, n!, ((-343035+429858*n
+238440*n^3+38958*n^4+634756*n^2+2940*n^5+84*n^6)*b(n-1)
-(1974*n^4+36336*n^3+213240*n^2+407840*n+82425)*(n-1)^2*b(n-2)
+2*(49875+42646*n+6458*n^2)*(n-1)^2*(n-2)^2*b(n-3)
-11025*(n-1)^2*(n-2)^2*(n-3)^2*b(n-4))/ ((n+6)^2*(n+10)^2*(n+12)^2))
end:
a:= n-> n! -b(n):
seq(a(n), n=8..25);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Oct 10 2012
STATUS
approved