%I#24 2018年2月26日04:16:23

%S 2,2,3,6,8,24,2710811256055339033962377223779190232190240，

%电话：171216017121691712169017121700188338711260064532，

%电话：2260064542939380839072293808390854113317471904113317472046169976208066997620807598719619329200

%N乘1，加1，乘2，加2，等等，从2开始。

%H Robert Israel，<a href=“/A0194065/b019465.txt”>n，a（n）表，n=0..898</a>

%F From _Robert Israel_，2015年12月22日：（开始）

%F a（2*k）=2*k！+求和{j=0..k-1}k/j！=2*k！+k*e*Gamma（k，1）。

%F a（2*k+1）=2*（k+1）！+求和{j=0..k-1}（k+1）/j！=2*（k+1）！+k*（k+1）*e*伽马（k，1）。

%F a（n）~（e+2）*（上限（n/2））！。（结束）

%p A[0]：=2：

%p代表n从0到14 do

%p A[2*n+1]：=（n+1）*A[2*n]；

%p A[2*n+2]：=（n+1）+A[2*n+1]；

%日期：

%p序列（A[i]，i=0..30）；#_罗伯特·伊斯雷尔（Robert Israel），2015年12月22日

%tα={2}；Do[If[EvenQ@Length@a，AppendTo[a，Floor[Length[a]/2]Last@a]，

%t附加到[a，最后@a+层[Length[a]/2]]，{k，27}]；Rest@a（*_Michael De Vlieger_，2015年12月22日*）

%o（PARI）A019465（n，a=2）={对于（i=2，n+1，if（位测试（i，0），a+=i/2，a*=i/2））；a}\\_M.F.哈斯勒，2018年2月25日

%Y参见A082458（相同，但以0开头）、A019465（以2开头）、C019466（以3开头）。

%Y参考A019460。。A019463和A082448（类似，但先相加，然后相乘）。

%K nonn，简单

%0、1

%A _N.J.A.斯隆_

%E编辑：M.F.Hasler，2018年2月25日