|
%I #21 Sep 23 2022 17:10:03
%S 1,1,2,5,19,92,543,3741,29513,262341,2594262,28248627,335844793,
%T 4328666215,60120364101,895125421053,14222548356739,240203038913808,
%U 4296965473902563,81164903395937306,1614279745319197539,33720510235556570814
%N Nearest integer to Gamma(n + 8/9)/Gamma(8/9).
%C Gamma(n + 8/9)/Gamma(8/9) = 1, 8/9, 136/81, 3536/729, 123760/6561, 5445440/59049, 288608320/531441, 17893715840/4782969, ...
%H G. C. Greubel, <a href="/A020019/b020019.txt">Table of n, a(n) for n = 0..445</a>
%p Digits := 64:f := proc(n,x) round(GAMMA(n+x)/GAMMA(x)); end;
%t f[n_] := Round[Gamma[n + 8/9]/Gamma[8/9]]; Array[f, 22, 0] (* _Robert G. Wilson v_, Sep 13 2013 *)
%o (PARI) for(n=0,30, print1(round(gamma(n+8/9)/gamma(8/9)), ", ")) \\ _G. C. Greubel_, Feb 03 2018
%o (Magma) [Round(Gamma(n +8/9)/Gamma(8/9)): n in [0..30]]; // _G. C. Greubel_, Feb 03 2018
%Y Cf. A049211, A020064, A020109.
%K nonn
%O 0,3
%A _Simon Plouffe_
|
