|
|
A088084号 |
| a(1)=2;然后最小回文大于前一项,这样每个部分串联都是质数。 |
|
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
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|