搜索： 编号：a103402
|
| |
| |
|
|
|
3, 4, 5, 6, 11, 33, 555, 878, 5775, 6116, 919919, 58633685, 129707921, 16958285961, 867275572768, 50166722766105, 310439747934013, 4384495885944834, 5817988338897185
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
数学
|
NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]]]FromDiges[Take[idn，-Cilip[l/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，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]；如果[Reverse[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日
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.007秒内完成
|
