%I#24 2022年9月8日08:44:32
%S 1,1,2,5,51,253027784147411257951175876795312473444672,
%电话2239800915458592831741241084014089684628951608670286,
%电话:75050224723852735328532814271515765161896847432337448375055850025144982508492968859544
%倒过来写N个贝尔数字。
%H Alois P.Heinz,<a href=“/A040498/b040498.txt”>n,a(n)表,n=0..576</a>
%F a(n)=A004086(A000110(n))_Michel Marcus,2014年4月5日
%p b:=proc(n)选项记忆`如果`(n=0,1,
%p加(b(n-j)*二项式(n-1,j-1),j=1..n))
%p端:
%pa:=n->(s->解析(cat(seq(s[-i],i=1..长度)))(“”||(b(n))):
%p序列(a(n),n=0..30);#_Alois P.Heinz,2018年4月1日
%t FromDigits[Reverse[IntegerDigits[#]]]&/@BellB[Range[0,30]](*哈维·P·戴尔,2012年2月1日*)
%o(岩浆)[Seqint(反向(Intseq(Bell(n)))):n in[0.30]];//_Vincenzo Librandi_,2015年1月30日
%Y参考A000110、A004086。
%K nonn,基础
%0、3
%A _N.J.A.斯隆_
%E更多条款,来自_Eric M.Schmidt,2014年4月4日
|