%I#9 2022年5月24日00:10:12
%S 2,1,1,0,1,2,5,6,7,2,1,8,5,7,9,12,13,10,10,13,17,18,5,16,3,26,13,20,
%T 29,8,31,27,19,21,27,5,14,12,3,9,37,34,40,14,29,35,12,27,4,36,22,24,
%U 11,31,37,12,5,47,14,22,18,51,20,51,4,15,54,61,26,55,2,6,73,7,17,66,54,27
%N伽马(1/3)的阶乘展开=Sum_{N>=1}a(N)/N!。
%H<a href=“https://oeis.org/index/Fa#facbase网址“>阶乘基表示的索引项</a>
%e伽玛(1/3)=2+1/2!+1/3! + 0/4! + 1/5! + 2/6! + 5/7! + 6/8! + ...
%t与[{b=Gamma[1/3]},表[If[n==1,Floor[b],Floor[n!*b]-n*Floor[(n-1)!*b],{n,1,100}]]
%o(PARI)默认值(realprecision,250);b=γ(1/3);对于(n=1,80,打印1(如果(n==1,楼层(b),楼层(n!*b)-n*楼层((n-1)*b) ),“,”)
%o(Magma)SetDefaultRealField(RealFild(250));[地板(伽马(1/3))]cat[地板(阶乘(n)*伽马(1/3))-n*地板(阶阶乘(n-1))*伽玛(1/3):n in[2..80]];
%o(鼠尾草)
%o b=γ(1/3);
%o定义a(n):
%o如果(n==1):返回楼层(b)
%o else:返回展开(floor(factorial(n)*b)-n*floor(阶乘(n-1)*1))
%o[a(n)代表(1..80)中的n]
%Y参见A073005(十进制展开),A030651(连分数)。
%Y参见A068463(伽马射线(3/4))、A068464(伽马(1/4))、A322509(伽马线(2/3))。
%K nonn公司
%O 1,1号机组
%A _G.C.Greubel,2018年12月12日
|