|
%I #20 Sep 08 2022 08:44:44
%S 1,0,0,0,0,2,14,91,648,5252,47801,482796,5359035,64844332,849460756,
%T 11977396665,180858689641,2911824903229,49792205845228,
%U 901238925798638,17213663482753993,345994636003355264,7300486819670796087
%N Integer part of Gamma(n+1/10)/Gamma(1/10).
%H G. C. Greubel, <a href="/A020063/b020063.txt">Table of n, a(n) for n = 0..445</a>
%p Digits := 64:f := proc(n,x) trunc(GAMMA(n+x)/GAMMA(x)); end;
%p seq(trunc(pochhammer(1/10,n)), n = 0..25); # _G. C. Greubel_, Nov 13 2019
%t IntegerPart[Pochhammer[1/10, Range[0, 25]]] (* _G. C. Greubel_, Nov 13 2019 *)
%o (PARI) P(n,x) = gamma(x+n)/gamma(x);
%o vector(26, n, truncate(P(n-1, 1/10)) ) \\ _G. C. Greubel_, Nov 13 2019
%o (Magma) [Truncate(Gamma(n+1/10)/Gamma(1/10)): n in [0..25]]; // _G. C. Greubel_, Nov 13 2019
%o (Sage) [int(rising_factorial(1/10, n)) for n in (0..25)] # _G. C. Greubel_, Nov 13 2019
%Y Cf. A020018, A020108.
%K nonn
%O 0,6
%A _Simon Plouffe_
|
