%I #14 Sep 08 2022 08:44:44
%S 1,0,1,4,17,85,499,3422,26888,238157,2347553,25487720,302211542,
%T 3885576978,53842995267,799953072548,12684970150410,213832353964066,
%U 3818434892215473,72004772253206072,1429809049027949159
%N a(n) = floor( Gamma(n+6/7)/Gamma(6/7) ).
%H G. C. Greubel, <a href="/A020074/b020074.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(floor(pochhammer(6/7,n)), n = 0..25); # _G. C. Greubel_, Nov 17 2019
%t Floor[Pochhammer[6/7, Range[0, 25]]] (* _G. C. Greubel_, Nov 17 2019 *)
%o (PARI) vector(26, n, my(x=6/7); gamma(n-1+x)\gamma(x) ) \\ _G. C. Greubel_, Nov 17 2019
%o (Magma) [Floor(Gamma(n+6/7)/Gamma(6/7)): n in [0..25]]; // _G. C. Greubel_, Nov 17 2019
%o (Sage) [floor(rising_factorial(6/7, n)) for n in (0..25)] # _G. C. Greubel_, Nov 17 2019
%Y Cf. A220607.
%Y Cf. A020075, A020076, A020077, A020078, A020079.
%K nonn
%O 0,4
%A _Simon Plouffe_
|