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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A083744号 a(1)=1;如果a(n-1)+n是复合的,那么a(n)=a。 2
1, 1, 4, 8, 8, 14, 21, 21, 30, 40, 51, 63, 76, 90, 105, 121, 138, 156, 175, 195, 216, 238, 261, 285, 310, 336, 363, 391, 420, 450, 481, 513, 546, 580, 615, 651, 688, 726, 765, 805, 846, 888, 931, 975, 1020, 1066, 1113, 1161, 1210, 1260, 1311, 1363, 1416, 1470 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,3
链接
迈克尔·德弗利格,n=1..10000时的n,a(n)表
MAPLE公司
a:=proc(n)选项记住:如果n=1,那么RETURN(1)fi:如果是isprime(a(n-1)+n),那么RETURN(a(n-1)))),否则RETURN(a(n-1)+n)fi:end:对于n从1到100,执行printf(`%d,`,a(n))od:#詹姆斯·塞勒斯2003年5月19日
数学
a083744[n_]:=块[{i,t=表[1,{n}]},
对于[i=2,i<n,
如果[CompositeQ[t[[i-1]]+i],t[[i]]=t[[i-1]]+i,
t[[i]]=t[[i-1]]],i++];t] ;a083744[54](*迈克尔·德弗利格2014年12月24日*)
nxt[{n_,a_}]:={n+1,如果[CompositeQ[a+n+1],a+n+1,a]};嵌套列表[nxt,{1,1},60][[全部,2]](*哈维·P·戴尔2019年10月9日*)
交叉参考
囊性纤维变性。A083743号.
关键词
容易的,非n
作者
阿玛纳斯·穆尔西,2003年5月5日
扩展
更多术语来自詹姆斯·塞勒斯2003年5月19日
状态
经核准的

查找|欢迎光临|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索引擎|最近
OEIS社区|维护人OEIS基金会。

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

上次修改时间:2024年4月20日09:59 EDT。包含371807个序列。(在oeis4上运行。)