A350313-OEIS公司

A350313型

红石置换：a（1）=2，a（2）=1，否则为n的强素数。

2, 1, 4, 5, 3, 7, 8, 9, 10, 11, 6, 13, 14, 15, 16, 17, 12, 19, 20, 21, 22, 23, 18, 25, 26, 27, 28, 29, 24, 31, 32, 33, 34, 35, 36, 37, 30, 39, 40, 41, 38, 43, 44, 45, 46, 47, 42, 49, 50, 51, 52, 53, 48, 55, 56, 57, 58, 59, 54, 61, 62, 63, 64, 65, 66, 67, 60, 69, 70

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

我们说‘k是n的强素数’当且仅当k是n素数且k不除n-1（参见A181830号).

序列是从2开始的正整数的固定无点置换。根据Don Knuth的说法，以[n]={1，2，…，n}中的2个开始的不动点自由排列的数量已经由欧拉计算出来了，见A000255号.

我们说n是正整数置换p的“追赶点”当且仅当p限制为[n]是[n]的置换。这个序列的追赶点开始于2、5、11、17。。。和在A350314型此结构允许将序列视为不规则三角形，如示例部分所示。结果行的长度是一个周期序列（请参见A350315型).

链接

n=1..69时的n，a（n）表。

例子

追赶点和初始段：

[ 2] 2, 1,

[ 5] 4, 5, 3,

[11] 7, 8, 9, 10, 11, 6,

[17] 13, 14, 15, 16, 17, 12,

[23] 19, 20, 21, 22, 23, 18,

[29] 25, 26, 27, 28, 29, 24,

[37] 31, 32, 33, 34, 35, 36, 37, 30,

[41] 39, 40, 41, 38,

[47] 43, 44, 45, 46, 47, 42,

[53] 49, 50, 51, 52, 53, 48,

...

数学

s={2，1}，c[_]=0；数组[Set[c[s[[#]]]，#]&，Length[s]]；j=最后[s]；u=3；s~加入~Reap[Monitor[Do[If[j==u，While[c[u]>0，u++]]；k=u；而[Nand[c[k]==0，互质Q[i，k]！可分[i-1，k]]，k++]；母猪[k]；集合[c[k]，i]；j=k，{i，长度[s]+1，69}]，i]][[-1，-1]](*迈克尔·德弗利格2021年12月24日*）

黄体脂酮素

（SageMath）

定义生成术语（N，条件）：

a={1:2，2:1}；n=整数（2）

notYetOccured=[范围（3，N+1）中i的整数（i）]

while notYet Occured！=未发生[]:

n+=1

发现=错误

对于notYetOccured中的r：

如果条件（r，n）：

a[n]=r

未发生。删除（r）

发现=真

打破

如果未找到：断开

对于范围（1，n）中的i，返回[a[i]

定义isPrimeTo（m，n）：返回gcd（m，n）==1

def isStrongPrimeTo（m，n）：返回isPrimeTo（m，n）而不是m.divides（n-1）

打印（generatePermutation（70，isStrongPrimeTo））

交叉参考

囊性纤维变性。A350314,A350315型,A181830号,A000255号.

上下文中的序列：A330402型 A075302号 A352520型*A257911型 A257882型 A326766飞机

相邻序列：A350310型 A350311型 A350312型*A350314 A350315型 A350316型

关键词

非n

作者

彼得·卢什尼2021年12月24日

状态

经核准的