登录
A124232号
数字n使得素数(n)和π(n)是回文的。
0
1, 2, 3, 4, 5, 26, 32, 36, 138, 3691, 6987, 7193, 86969, 117766, 127150, 142583, 515786, 531448, 539596, 615980, 646060, 17262354, 39816443, 47548105, 48803361, 49426747, 528977302, 538348374, 1475057753, 1559827952, 2994135736, 60040412496, 64516992534, 333771325433, 11655934712628, 21872729899659, 22903935103276, 28311805106395, 29606335619415
抵消
1,2
数学
下一个回文[n_]:=块[{lg=Floor@Log[10,n]+1,idn=整数位数@n},如果[Union@idn=={9},Return[n+2],如果[lg<2,Return[n+1],如果[CromDigits@Reverse@Take[idn,Ceiling[lg/2]>FromDigits@Take[idsn,-Ciling[1g/2]],FromDiges@Join[Take[idn,Celing[lg/2]],Reverse@Take[idn,Floor[lg/2]],idfhn=FromDigs@Take[idsn,Celling[lg/m2]+1;idp=FromDigits@Join[IntegerDigits@idfhn,Drop[Reverse@IntegerDigits@idfhn,Mod[lg,2]]]];
palQ[n_Integer]:=模块[{idn=整数位数@n},idn==反向@idn];lst={};k=1;当[k<10^12时,如果[底漆Q@k && palQ@PrimePi@PrimePi@k公司, 打印@PrimePi@k;附录[lst,PrimePi@k公司]]; k=下一个回文@k]; 第一次(*罗伯特·威尔逊v*)
交叉参考
的后续A075807号=数字n,使得第n个素数是回文的。
关键词
基础,非n
作者
塔尼亚·霍瓦诺娃2006年12月13日
扩展
a(22)-a(31)来自罗伯特·威尔逊v2006年12月14日
a(32)-a(33)来自多诺万·约翰逊2012年7月19日
a(34)来自柴华武2019年9月12日
a(35)-a(39)来自柴华武2019年9月19日
状态
经核准的