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

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

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

%我

%第1,4,6,14,32,65,84111124147212236320380465517584636876,

%电话:95521262570296242544883

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

%n>1a(n)的C是复合的,因为如果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)。

%因为S_14=(1,4,9,2,6,12,7,14,13,11,5,10,3,8)是一个循环置换。

%t f[n_u]:=(a=表[Prime[k],{k,PrimePi[n]}];b=补码[Range[2,n],a];c=Join[b,{1},a]);d[n_u,m_9]:=f[n][[m]];g[r_u]:=(v={1};d[mü]:=d[r,m];对于[t=1!成员q[v,d[v[[-1]]]&&t<r,v=Append[v,d[v[-1]]]];t++];t);Do[If[!PrimeQ[r]&&r==g[r],打印[r]],{r,3000}]

%Y比照A002808、A108515、A108517。

%再来一点,不是吗

%O 1,2号

%2005年6月30日

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

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

上次修改时间:美国东部时间2020年11月27日06:49。包含338678个序列。(运行在oeis4上。)