登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A108515电话 数m使得第一个m自然数T峎m(n)=如果(1<=n<=pi(m),素数(n),c(n-pi(m)-1))是循环置换,其中c(k)是第k个复合数,c(0)=1(对于每个自然数k,c(k-1)=A018252号(k) )。 2

%我

%第1、2、3、5、13、31、43251696124971节

%N个数m,使得第一个m个自然数T_m(N)=如果(1<=N<=pi(m),素数(N),c(N-pi(m)-1))是循环置换,其中c(k)是第k个复合数,c(0)=1(对于每个自然数k,c(k-1)=A018252(k))。

%n>1a(n)是素数,因为如果m是一个复合数,那么T峎m(m)=m,所以在这种情况下T峎m不能是循环置换。到质数(4420)没有进一步的期限。-_Farideh Firoozbakht,2005年6月29日

%如果m>3&m=prime(k),那么对于n=1,2,…,m T ium(n)分别是素数(1),素数(2),…,素数(k),1,4,…,m-1。

%e 31在序列中是因为T峎31=(1,2,3,5,11,31,30,28,26,24,21,16,9,23,20,15,8,19,14,6,13,4,7,17,10,29,27,25,22,18,12)是一个循环置换。

%t f[n_9]:=(a=表[Prime[k],{k,PrimePi[n]}];b=补码[Range[n],a];c=Join[a,b]);d[n_u,m_9]:=f[n][m]];g[r_u]:=(v={1};d[mü]:=d[Prime[r],m];对于[t=1!MemberQ[v,d[v[[-1]]]&&t<Prime[r],v=Append[v,d[v[-1]]]];t++];t);w={1};Do[If[Prime[r]==g[r],w=Append[w,Prime[r]];Print[w]],{r,4420}](Firoozbakht)

%Y比照A018252。

%参见A108516、A108517。

%再来一点,不是吗

%O 1,2号

%A Mehdi Khorrami(mymontain(AT)yahoo.com),2005年6月27日

%更多条款请参考2005年6月29日Farideh Firoozbakht

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

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

上次修改时间:2021年1月26日06:32。包含340434个序列。(运行在oeis4上。)