登录
A120716号
如果p是素数,a(1)=1,a(p)=p。否则,从n开始迭代映射(k->k的非平凡除数的串联),直到到达质数q;那么a(n)=q。如果我们永远不会达到素数,那么a(n)=-1。
10
1, 2, 3, 2, 5, 23, 7
抵消
1,2
评论
a(8)目前未知。
序列从a(8)-a(100)继续:>10^50,3,5,11,>10^50,13,313,1129,>10*50,17,>10*10 10^50、7、>10^50,317、>10 ^50、53、23691827、773、>10*50、1129、229、59、, >10^50, 61, >10^50, 378593, >10^50, >10^5", >10^50, 67, >10^50, 39191573, >10^50, 71, >10^50, 73, 379, >10^50, >10^50, 3979237, 236132639, 79, >10^50, >10^50, 241, 83, >10^50, 3137, >10^50, 3983249, >10^50, 89, >10^50, >10^50, >10^50, 331, 1319, 36389, >10^50, 97, >10^50, 391133, >10^50. -罗伯特·普莱斯2019年3月27日
例子
4->2,素数,所以a(4)=2。
6->2,3->23,素数,因此a(6)=23。
8 -> 2,4 -> 24 -> 2,3,4,6,8,12 -> 2346812 -> 2,4,13,26,52,45131,90262,180524,586703,1173406 -> 2413265245131902621805245867031173406 -> ? (请参阅后续链接)
9->3,素数,所以a(9)=3。
21->3,7->37,素数,因此a(21)=37。
数学
A120716号[n_]:=模块[{x},
如果[n==1,返回[1];
如果[PrimeQ[n],返回[n]];
x=FromDigits[Flatten[IntegerDigits[Rest[Most[除数[n]]]]];
如果[x>10^50,返回[“>10^50”],A120716号[x] ]];
表[A120716号[n] ,{n,1100}](*罗伯特·普莱斯,2019年3月27日*)
关键词
非n,基础,更多,坚硬的
作者
N.J.A.斯隆2007年7月19日
扩展
编辑人米歇尔·马库斯2023年3月9日
状态
经核准的