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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a108515-编号:a1085150
显示找到的2个结果中的1-2个。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A108516号 数m,使得第一个m个自然数S_m(n)的置换=如果(1<=n<m-pi(m),c(n),素数(n-m-pi=A002808号(k) )。 +10
2
1、4、6、14、32、65、84、111、124、147、212、236、320、380、465、517、584、636、876、955、2126、2570、2962、4254、4883 (列表图表参考历史文本内部格式)
抵消
1,2
评论
对于n>1,a(n)是复合的,因为如果m是质数,那么S_m(m)=m,因此在这种情况下S_m不能是循环置换。
链接
例子
如果m>3&pi(m)=k,则n=1,2,。。。,m S_m(n)分别为c(1)、c(2)、…、,。。。,c(m-k-1),1,素(1),素(2),。。。,素数(k)。
14位于序列中,因为S_14=(1,4,9,2,6,12,7,14,13,11,5,10,3,8)是循环置换。
数学
f[n_]:=(a=表[Prime[k],{k,PrimePi[n]}];b=补码[Range[2,n],a];c=连接[b,{1},a]);d[n,m]:=f[n][[m]];g[r]:=(v={1};d[m]:=d[r,m];对于[t=1,!成员Q[v,d[v[-1]]]&&t<r,v=附加[v,d[v[-1]]];t++];t);执行[If[!PrimeQ[r]&&r==g[r],打印[r]],{r,3000}]
交叉参考
囊性纤维变性。A002808号,A108515号,A108517号.
关键词
更多,非n
作者
状态
经核准的
A108517号 数m,使得第一个m个自然数R_m(n)的置换=if(1<=n<m-pi(m),c(n),if(n=m,1,素数(n-m-pi=A002808号(k) )。 +10
2
1, 15, 33, 66, 85, 112, 125, 148, 213, 237, 321, 381, 466, 518, 585, 637, 956, 2127, 2571, 4255, 4884, 6686, 9193, 10412, 11073 (列表图表参考历史文本内部格式)
抵消
1,2
评论
这个序列的所有24个已知项都是非素数。一般来说这是真的吗?
链接
例子
如果m>3&pi(m)=k,则n=1,2,。。。,m S_m(n)分别为
c(1),c(2),。。。,c(m-k-1),素数(1),素(2),。。。,素数(k),1。
33位于序列中,因为R_33=(1、4、9、16、26、11、20、32、31、29、19、30、23、3、8、15、25、7、14、24、5、10、18、18、28、17、27、13、22、2、6、12、21、33)是循环置换。
数学
(f[n_]:=(a=表[素数[k],{k,素数Pi[n]}];b=补码[范围[2,n],a];c=联接[b,a,{1}]);d[n,m]:=f[n][[m]];g[r]:=(v={1};d[m]:=d[r,m];对于[t=1,!成员Q[v,d[v[-1]]]&&t<r,v=附加[v,d[v[-1]]];t++];t);做[If[!PrimeQ[r]&&r==g[r],打印[r]],{r,10800}])
交叉参考
囊性纤维变性。A002808号,A108515号,A108516号.
关键词
更多,非n
作者
状态
经核准的
第页1

搜索在0.004秒内完成

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

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

上次修改时间:美国东部夏令时2024年4月19日06:16。包含371782个序列。(在oeis4上运行。)