%I#54 2024年6月8日16:44:59
%S 1,318135121512636147987191799927162540162364016848207775,
%电话:120206639790223927820327744074161731151913065539247018,
%电话:198439435470603154511357550422499871070118279346233805226425052977779175791715118823636386191803509889950776032172
%N a(N)=3^N*贝尔(N)。
%H Chai Wah Wu,n的表,n的a(n)=0..200</a>
%F a(n)=3^n*A000110(n)。
%F a(n)=(1/e)*和{k>=0}(3*k)^n/k!。(这是一个Dobinski类型的公式。)
%计算公式:(1/e)*和{k>=0}1/(k!*(1-3*k*z))。
%F例如:exp(exp(3*z)-1)。
%F a(n)是离散正权函数w(x)的第n个矩,该函数由位于x=3*k,k=0,1。。。,定义为w(x)=(1/e)*Sum_{k>=0}Dirac(x-3*k)/k!。
%光纤:1/(1-3x/(1-3x/(1-3+(1-6x/(1-3×/(1-9x/(1-…)…))(连分数)。-_菲利普·德雷厄姆,2014年9月18日
%F a(0)=1;a(n)=和{k=1..n}二项式(n-1,k-1)*3^k*a(n-k).-_伊利亚·古特科夫斯基,2020年1月16日
%t表[3^n BellB[n],{n,0,20}](*文森佐·利班迪,2014年9月19日*)
%o(Python)
%o需要#Python 3.2或更高版本。
%o从itertools导入累加
%o A247452_list,整体叶盘,b,n3=[1,3],[1],1,9
%o表示_在范围(2201)内:
%o blist=列表(累加([b]+blist))
%o b=blist[-1]
%o A247452_list.append(b*n3)
%o n3*=3#_查瓦乌,2014年9月19日
%o(岩浆)[3^n*Bell(n):n英寸[0..20]];//_文森佐·利班迪(Vincenzo Librandi),2014年9月19日
%Y参考A000110、A055882。
%K nonn公司
%0、2
%A _Karol A.Penson,2014年9月17日