%I #20 Sep 20 2019 21:06:24
%S 3,1,1,3,9,40,214,1355,9940,82834,773118,7988888,90540730,1116669003,
%T 14888920041,213407853923,3272253760147,53446811415729,
%U 926411397872639,16984208960998390,328361373245968868,6676681256001366975,142435866794695828799,3181067691748206843170,74224912807458159673978
%N Nearest integer to Gamma(n + 1/3).
%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 Robert Israel, <a href="/A014516/b014516.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/3),100)), n=0..24) ];
%t a[n_] := Round[Gamma[n + 1/3]]; Array[a, 25, 0] (* _Amiram Eldar_, Sep 20 2019 *)
%o (PARI) a(n) = round(gamma(n+1/3)); \\ _Michel Marcus_, Sep 13 2018
%Y Cf. A014510, A014511, A014512, A014513, A014514, A014517, A014518, A014521, A014522.
%K nonn
%O 0,1
%A _N. J. A. Sloane_
%E Corrected and extended by _Robert Israel_, Sep 12 2018
|