%I #19 Sep 20 2019 21:07:29
%S 4,1,1,3,8,35,185,1155,8377,69106,639233,6552134,73711509,902965986,
%T 11964299312,170491265198,2599991794272,42249866656927,
%U 728810199831991,13300786146933842,256040133328476466
%N Nearest integer to Gamma(n+1/4).
%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 255.
%H Amiram Eldar, <a href="/A014518/b014518.txt">Table of n, a(n) for n = 0..450</a>
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 255.
%p [ seq(round(evalf(GAMMA(n+1/4),100)), n=0..24) ];
%t a[n_] := Round[Gamma[n + 1/4]]; Array[a, 21, 0] (* _Amiram Eldar_, Sep 20 2019 *)
%o (PARI) a(n) = round(gamma(n + 1/4)); \\ _Michel Marcus_, Nov 05 2018
%Y Cf. A014510, A014511, A014512, A014513, A014514, A014516, A014517, A014521, A014522.
%K nonn
%O 0,1
%A _N. J. A. Sloane_.
%E a(20) corrected by _Sean A. Irvine_, Nov 04 2018