|
%I #10 Aug 18 2016 05:34:39
%S 0,2,24,744,35160,2394720,222712560,27154350720,4205374225920,
%T 806700010233600,187793061031699200,52162131258836121600,
%U 17043501717850146739200,6471785359791584459827200,2826261760629911644744704000,1406604814631643298586923008000
%N a(n) = n!*A003436(n).
%H Vincenzo Librandi, <a href="/A274634/b274634.txt">Table of n, a(n) for n = 1..100</a>
%F a(n) ~ 2*sqrt(Pi*n)*2^n*n^(2*n)/exp(2*n+1). - _Ilya Gutkovskiy_, Aug 18 2016
%t a[n_]:= n! (2 n - 1)!! Hypergeometric1F1[-n, 1 - 2 n, - 2]; a[1] = 0; Table[a[n], {n, 1, 20}] (* _Vincenzo Librandi_, Aug 18 2016 *)
%Y Cf. A003436.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Jul 08 2016
|
