|
%I #17 Sep 08 2022 08:44:44
%S 1,1,1,2,8,35,192,1255,9471,80933,772545,8146834,94058896,1180011610,
%T 15983793633,232491543753,3614186725612,59798362187392,
%U 1049189445651507,19457695173900667,380309496580785766
%N Nearest integer to Gamma(n + 6/11)/Gamma(6/11).
%H G. C. Greubel, <a href="/A020009/b020009.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 + 6/11]/Gamma[6/11]], {n, 0, 50}] (* _G. C. Greubel_, Jan 19 2018 *)
%o (PARI) for(n=0,30, print1(round(gamma(n+6/11)/gamma(6/11)), ", ")) \\ _G. C. Greubel_, Jan 19 2018
%o (Magma) [Round(Gamma(n +6/11)/Gamma(6/11)): n in [0..30]]; // _G. C. Greubel_, Jan 19 2018
%Y Cf. A020054, A020099.
%K nonn
%O 0,4
%A _Simon Plouffe_
|
