检验过的

经核准的

提出

检验过的

编辑

提出

（*编者注：这不是一个有效的程序。*）

(*求解[x^3-x-1==0，x]] *)

Phi=Pisot_real_root

Phi=1.3247179572447460259609088544780973407；

数字=4018;

a=表[If[m==0，Phi，Phi*积[Prime[n]，{n，1，m}]]，{m，0，数字}]}];

b=表[Exp[Sum[n，{n，0，m}]]，{m，0，数字}]}];

提出

编辑

雨果·普福尔特纳：Mma的工程修复。现在复制数据。

编辑

提出

（*编者注：这不是一个有效的程序。*）

提出

编辑

编辑

提出

雨果·普福尔特纳：Mma代码有效吗？对我来说不是。

基于最小Pisot实根和e以及素数序列间距的两基序列。

无意义的序列。

这个序列中的间隔更接近于自然的日月序列。

a（n）=F_Pisot[n]*F_E[n]

解[x^3-x-1==0，x]Phi=Pisot_real_root数字=40 a=表[If[m==0、Phi、Phi*积[Prime[n]，{n，1，m}]]，{m，0，Digits}]b=表[Exp[Sum[n，{n、0，m}]，{m，0，Digits}]c=表[Floor[a[Floor[（n+1）/2]]*b[Floor[2]]]，]

求解[x^3-x-1==0，x]

Phi=Pisot_real_root

位数=40

a=表[如果[m==0，Phi，Phi*积[素数[n]，{n，1，m}]]，{m，0，数字}]

b=表[Exp[Sum[n，{n，0，m}]]，{m，0，Digits}]

c=表格[楼层[a[[楼层[（n+1）/2]]*b[[楼层[n/2]]]，{n，2，数字+1}]

非n,未经编辑的,较少的

经核准的

编辑

_罗杰·巴古拉(rlbagulatftn公司(自动变速箱)雅虎.通用域名格式),_,2003年11月20日

OEIS服务器: https://oeis.org/edit/global/158

求解[x^3-x-1==0,,x] Phi=Pisot_real_root数字=40 a=表格[如果[m==0,,菲律宾比索,,Phi*产品[Prime[n], {], {n个,,1,,米}]], {}]], {米,,0,,数字}]b=表格[Exp[Sum[n, {, {n个,,0,,米}]], {}]], {米,,0,,数字}]c=表格[楼层[a[[楼层[（n+1）/2]]*b[[楼层[n/2]]]], {]]]], {n个,,2,,数字+1}]

非n,未经编辑的,新的