|
|
A103402号 |
| 回文p使得pi(p)是回文素数。 |
|
5
|
|
|
3, 4, 5, 6, 11, 33, 555, 878, 5775, 6116, 919919, 58633685, 129707921, 16958285961, 867275572768, 50166722766105, 310439747934013, 4384495885944834, 5817988338897185
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
下一个回文符号[n]:=Block[{l=Floor[Log[10,n]+1],idn=IntegerDigits[n]},If[并集[idn]={9},Return[n+2],If[l<2,Return[n+1],If[FromDigits[Reverse[Take[idn,Ceiling[l/2]]]FromDigits[Take[idn,-Siling[l/2]]],FromDigits[Join[Take[idn,Ceiling[l/2]],Reverse[Take[idn,Floor[l/2]]],idfhn=FromDigits[Take[idn,Ceiling[l/2]]]+1;idp=FromDigits[Join[IntegerDigits[idfhn],Drop[Reverse[Integer Digits[idfhn]],Mod[l,2]]]]];
p=0;a={};Do[p=下一个回文[p];q=PrimePi[p];如果[PrimeQ[q],r=整数位数[q];如果[反转[r]==r,则打印[{p,q}];附加到[a,p]]],{n,10^6}];一
palQ[n_]:=反向[x=整数位数[n]]==x;t={};Do[If[palQ[n]&&PrimeQ[x=PrimePi[n]]&&palQ[x],AppendTo[t,n]],{n,10^6}];t吨(*贾扬达·巴苏2013年6月24日*)
|
|
交叉参考
|
|
|
关键词
|
非n,基础,更多
|
|
作者
|
|
|
扩展
|
a(16)-a(17)来自柴华武2019年9月4日
|
|
状态
|
经核准的
|
|
|
|