login
Integer part of Gamma(n+1/2)/Gamma(1/2).
3

%I #14 Sep 08 2022 08:44:45

%S 1,0,0,1,6,29,162,1055,7918,67303,639383,6713530,77205601,965070017,

%T 13028445231,188912455860,2928143065834,48314360586264,

%U 845501310259627,15641774239803107,305014597676160593,6252799252361292173

%N Integer part of Gamma(n+1/2)/Gamma(1/2).

%H G. C. Greubel, <a href="/A020090/b020090.txt">Table of n, a(n) for n = 0..449</a>

%p Digits:= 64: x:=1/2: f:= proc(n,x) trunc(GAMMA(n+x)/GAMMA(x)); end;

%t Table[IntegerPart[Pochhammer[1/2, n]], {n, 0, 30}] (* _G. C. Greubel_, Nov 19 2018 *)

%o (PARI) default(realprecision, 100); for(n=0,30, print1(truncate( gamma(n+1/2)/gamma(1/2)), ", ")) \\ _G. C. Greubel_, Nov 19 2018

%o (Magma) [Truncate(Gamma(n + 1/2)/Gamma(1/2)): n in [0..30]]; // _G. C. Greubel_, Nov 19 2018

%o (Sage) [int(gamma(n + 1/2)/gamma(1/2)) for n in range(30)] # _G. C. Greubel_, Nov 19 2018

%Y Cf. A020045, A020135.

%K nonn

%O 0,5

%A _Simon Plouffe_