A014012-OEIS公司

A014012号

恩格尔展开1/Pi。

三

4, 4, 11, 45, 70, 1111, 4423, 5478, 49340, 94388, 200677, 308749, 708066, 711391, 1113024, 4342375, 4529119, 8061070, 12060867, 56215509, 69737317, 124001030, 214920537, 471564389, 891380746, 4293367334, 5031151602, 9832878719, 15034446439, 15481444638

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

链接

西蒙·普劳夫，n=1..973时的n，a（n）表【术语1至300由T.D.Noe计算】

与恩格尔展开式相关的序列索引项

MAPLE公司

a（n）：=进程

地方的

i、 j、最大值、aa、bb、lll、prod、S、T、kk；

S：=评估值（绝对值（S））；

最大值：=10^（数字-10）；

触头：=1；

lll：=[]；

而触头<=最大do

T：=1+截断（1/S）；

S:=压裂（S*T）；

lll：=[op（lll），T]；

触头：=触头*T

末端do；

返回（lll）

结束；

###输入一个实数，程序将返回该数字的Engel展开式，字数根据输出进行调整

#西蒙·普劳夫2016年4月23日

数学

EngelExp[A_，n_]：=加入[Array[1&，Floor[A]]，第一个@转座@嵌套列表[{天花板[1/展开[#[[1]]#[[2]]-1]]，展开[#[1]]#[2]-1]}&，{天花板1/1（A-Floor[A]）]，A-Floor[A]}，n-1]]；恩格尔实验[N[1/Pi，7！]，50](*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基，2009年6月8日*）

交叉参考

请参阅A006784号定义。

上下文中的序列：A358825型 A214112型 A211950型*A371550型 1973年2月 A273452型

相邻序列：A014009号 A014010型 A014011号*A014013号 A014014号 A014015号

关键词

非n

作者

西蒙·普劳夫

状态

经核准的