|
%I #17 Sep 23 2022 21:49:39
%S 1,1,1,3,10,46,261,1731,13221,114178,1100260,11702761,136177584,
%T 1720789476,23465311033,343446825119,5370259447317,89341588987180,
%U 1575660751228445,29364586727439204,576613703011533457
%N Nearest integer to Gamma(n + 7/11)/Gamma(7/11).
%C Gamma(n + 7/11)/Gamma(7/11) = 1, 7/11, 126/121, 3654/1331, 146160/14641, 7454160/161051, 462157920/1771561, ... - _R. J. Mathar_, Sep 04 2016
%H G. C. Greubel, <a href="/A020008/b020008.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 + 7/11]/Gamma[7/11]], {n, 0,50}] (* _G. C. Greubel_, Jan 19 2018 *)
%o (PARI) for(n=0,30, print1(round(gamma(n+7/11)/gamma(7/11)), ", ")) \\ _G. C. Greubel_, Jan 19 2018
%o (Magma) [Round(Gamma(n +7/11)/Gamma(7/11)): n in [0..30]]; // _G. C. Greubel_, Jan 19 2018
%Y Cf. A020053, A020098.
%K nonn
%O 0,4
%A _Simon Plouffe_
|
