Table[a[n], {n, 2, 41}] (* G. C. Greubel, Jun 20 2024 *)
PROG
(Magma)
[n le 2 select 8*n-7 else ((357*n^5 -197*n^4 -465*n^3 -115*n^2 -72*n + 252)*Self(n-1) +2*(2*n-3)*(51*n^4 +52*n^3 -21*n^2 +2*n -12)*Self(n-2))/(2*(n+3)*(51*n^4-152*n^3+129*n^2-4*n-36)): n in [1..41]]; // G. C. Greubel, Jun 20 2024