搜索: a088086-编号:a088085
|
|
|
|
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等都是质数。
|
|
数学
|
下一个回文符号[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[Rreverse[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]]]]]];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秒内完成
|