搜索： a088086-编号：a088086
|
| |
| |
|
|
|
2, 23, 239, 23911, 23911313, 2391131333, 23911313339339, 23911313339339303, 23911313339339303909, 23911313339339303909747, 23911313339339303909747383, 239113133393393039097473837
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A088084号
|
| a（1）=2；然后最小回文大于前一项，这样每个部分串联都是质数。 |
|
+10
2
|
|
|
|
2, 3, 9, 11, 313, 353, 363, 373, 3993, 10401, 11911, 16061, 16861, 17571, 30903, 33633, 34043, 39693, 74347, 147741, 370073, 768867, 795597, 960069, 962269, 1036301, 1165611, 1405041, 1485841, 1498941, 1601061, 1644461, 1934391
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
2、23、239、23911等都是质数。
|
|
|
数学
|
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]]]]]]；a=2；k=2；f[n_，m_]：=块[{k=NextPalindrome[m]}，而[b=FromDigits[Join[IntegerDigits[n]，IntegerDigits[k]]]！PrimeQ[b]，k=下一个回文[k]]；返回[b]]；f[2,2]；f[%，3]；等。
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
