|
%I #19 Sep 08 2022 08:44:44
%S 1,0,1,2,10,50,287,1915,14684,127262,1230201,13122149,153091744,
%T 1939162100,26501882045,388694270000,6089543563340,101492392722342,
%U 1793032271428052,33469935733323641,658242069422031618
%N a(n) = floor(Gamma(n + 2/3)/Gamma(2/3)).
%H G. C. Greubel, <a href="/A020088/b020088.txt">Table of n, a(n) for n = 0..449</a>
%p Digits:= 64: x:=2/3: f := proc(n,x) trunc(GAMMA(n+x)/GAMMA(x)); end;
%p seq(floor(pochhammer(2/3,n)), n = 0..30); # _G. C. Greubel_, Nov 30 2019
%t Table[Floor[Pochhammer[2/3, n]], {n, 0, 30}] (* _G. C. Greubel_, Nov 19 2018 *)
%o (PARI) x=2/3; vector(30, n, gamma(n-1+x)\gamma(x) ) \\ _G. C. Greubel_, Nov 19 2018
%o (Magma) [Truncate(Gamma(n + 2/3)/Gamma(2/3)): n in [0..30]]; // _G. C. Greubel_, Nov 19 2018
%o (Sage) [int(gamma(n + 2/3)/gamma(2/3)) for n in range(30)] # _G. C. Greubel_, Nov 19 2018
%Y Cf. A020043, A020133.
%K nonn
%O 0,4
%A _Simon Plouffe_
|
