|
%I #16 Sep 23 2022 21:52:32
%S 1,0,0,1,2,8,43,267,1927,15845,146123,1493701,16762640,204876709,
%T 2708925368,38526938568,586465620430,9513775620310,163848357905336,
%U 2985681188497227,57391427290002261,1160582196308934615
%N Nearest integer to Gamma(n + 2/9)/Gamma(2/9).
%C Gamma(n + 2/9)/Gamma(2/9) = 1, 2/9, 22/81, 440/729, 12760/6561, 484880/59049, 22789360/531441, 1276204160/4782969, ... - _R. J. Mathar_, Sep 04 2016
%H G. C. Greubel, <a href="/A020023/b020023.txt">Table of n, a(n) for n = 0..450</a>
%p Digits := 64:f := proc(n,x) round(GAMMA(n+x)/GAMMA(x)); end;
%t Table[Round[Gamma[n + 2/9]/Gamma[2/9]], {n, 0, 50}] (* _G. C. Greubel_, Feb 03 2018 *)
%o (PARI) for(n=0,30, print1(round(gamma(n+2/9)/gamma(2/9)), ", ")) \\ _G. C. Greubel_, Feb 03 2018
%o (Magma) [Round(Gamma(n +2/9)/Gamma(2/9)): n in [0..30]]; // _G. C. Greubel_, Feb 03 2018
%Y Cf. A020068, A020113.
%K nonn
%O 0,5
%A _Simon Plouffe_
|
