A014517 - OEIS

%I #18 Sep 20 2019 21:06:42

%S 1,1,2,4,15,69,389,2594,19884,172328,1665838,17768938,207304278,

%T 2625854188,35886673906,526337883960,8245960182038,137432669700634,

%U 2427977164711192,45322240407942258,891337394689531069

%N Nearest integer to Gamma(n+2/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 Amiram Eldar, <a href="/A014517/b014517.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+2/3),100)), n=0..24) ];

%t a[n_] := Round[Gamma[n + 2/3]]; Array[a, 21, 0] (* _Amiram Eldar_, Sep 20 2019 *)

%o (PARI) a(n) = round(gamma(n + 2/3)); \\ _Michel Marcus_, Nov 05 2018

%Y Cf. A014510, A014511, A014512, A014513, A014514, A014516, A014518, A014521, A014522.

%K nonn

%O 0,3

%A _N. J. A. Sloane_.

%E a(15), a(17), and a(19) corrected by _Sean A. Irvine_, Nov 04 2018