|
%I #18 Sep 23 2022 21:52:20
%S 1,0,1,2,5,24,131,843,6275,52988,500442,5226842,59818300,744405515,
%T 10008118595,144561713037,2232675345794,36715105686391,
%U 640474621418148,11813198572823623,229701083360459334,4696111037591613052
%N Nearest integer to Gamma(n + 4/9)/Gamma(4/9).
%C Gamma(n + 4/9)/Gamma(4/9) = 1, 4/9, 52/81, 1144/729, 35464/6561, 1418560/59049, 69509440/531441, 4031547520/4782969, ... - _R. J. Mathar_, Sep 04 2016
%H G. C. Greubel, <a href="/A020022/b020022.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 Table[Round[Gamma[n + 4/9]/Gamma[4/9]], {n, 0, 50}] (* _G. C. Greubel_, Feb 03 2018 *)
%o (PARI) for(n=0,30, print1(round(gamma(n+4/9)/gamma(4/9)), ", ")) \\ _G. C. Greubel_, Feb 03 2018
%o (Magma) [Round(Gamma(n +4/9)/Gamma(4/9)): n in [0..30]]; // _G. C. Greubel_, Feb 03 2018
%Y Cf. A144829, A020067, A020112.
%K nonn
%O 0,4
%A _Simon Plouffe_
|
