login
Nearest integer to Gamma(n+1/4).
10

%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