登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A089133号 a(n)=如果[模式[A001591号[n] ,1]=1则A001591号[n] 其他A001591号[n] +1如果PrimeQ[a[n]]==真,则a[n] 0
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]
交叉参考
囊性纤维变性。A001591号.
关键词
非n,未经编辑的,较少的
作者
罗杰·巴古拉2003年12月5日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日14:21。包含371254个序列。(在oeis4上运行。)