|
%I #17 Sep 23 2022 21:49:30
%S 1,1,1,3,13,60,346,2326,17972,156848,1525708,16366685,191936577,
%T 2442829156,33533382055,493855262996,7766996408941,129920667204110,
%U 2303139100436492,43131514062719763,850867141055471684
%N Nearest integer to Gamma(n + 8/11)/Gamma(8/11).
%C Gamma(n + 8/11)/Gamma(8/11) = 1, 8/11, 152/121, 4560/1331, 186960/14641, 9721920/161051, 612480960/1771561, ... - _R. J. Mathar_, Sep 04 2016
%H G. C. Greubel, <a href="/A020007/b020007.txt">Table of n, a(n) for n = 0..449</a>
%p Digits := 64:f := proc(n,x) round(GAMMA(n+x)/GAMMA(x)); end;
%t Table[Round[Gamma[n + 8/11]/Gamma[8/11]], {n, 0,50}] (* _G. C. Greubel_, Jan 19 2018 *)
%o (PARI) for(n=0,30, print1(round(gamma(n+8/11)/gamma(8/11)), ", ")) \\ _G. C. Greubel_, Jan 19 2018
%o (Magma) [Round(Gamma(n +8/11)/Gamma(8/11)): n in [0..30]]; // _G. C. Greubel_, Jan 19 2018
%Y Cf. A020052, A020097.
%K nonn
%O 0,4
%A _Simon Plouffe_
|
