A014516 Nearest integer to Gamma(n + 1/3).

3, 1, 1, 3, 9, 40, 214, 1355, 9940, 82834, 773118, 7988888, 90540730, 1116669003, 14888920041, 213407853923, 3272253760147, 53446811415729, 926411397872639, 16984208960998390, 328361373245968868, 6676681256001366975, 142435866794695828799, 3181067691748206843170, 74224912807458159673978

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

References

• M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 255.

Links

• Robert Israel, Table of n, a(n) for n = 0..450
• M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
• M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 255.

Crossrefs

Cf. A014510, A014511, A014512, A014513, A014514, A014517, A014518, A014521, A014522.

Programs

Maple

[ seq(round(evalf(GAMMA(n+1/3),100)), n=0..24) ];

Mathematica

a[n_] := Round[Gamma[n + 1/3]]; Array[a, 25, 0] (* Amiram Eldar, Sep 20 2019 *)

PARI

a(n) = round(gamma(n+1/3)); \\ Michel Marcus, Sep 13 2018

Extensions

Corrected and extended by Robert Israel, Sep 12 2018