|
|
|
|
3, 5, 17, 31, 61, 3040049, 5976577, 585029621921, 7536799430533853, 15114377875501666690812160076212633379799041, 4625477479238789293261951042221574153801685983374041180119163207681
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
数学
|
数字=50
N解[x^5-x^4-x^3-x^2-x-1==0,x]
k=1.96594823664548545
q=k^2-k-1/k-1/k^2-1/k^3
m0={0,1,0,0,0},{0,0
m[n_]=矩阵幂[m0,n];
a=表[If[Mod[Floor[Re[m[n][[5,5]]],2]==1,Floor[R[m[n][[5,5]]]];
b=表[如果[PrimeQ[a[[n]]]==真,a[[n]],0],{n,1,digits}];
c=删除[并集[b],1]
|
|
交叉参考
|
|
|
关键词
|
非n,未经编辑的,较少的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|