|
| |
| |
|
|
|
0, 1, 2, 3, 4, 6, 88, 252, 282, 626, 676, 1221, 15751, 18881, 10088001, 10400401, 27711772, 30322303, 47633674, 65977956, 808656808, 831333138, 831868138, 836131638, 836181638, 2512882152, 2596886952, 2893553982, 6761551676
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1、3
|
|
|
链接
|
|
|
|
数学
|
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]]]]]；palQ[n_Integer，base_Integer]：=块[{idn=IntegerDigits[n，base]}，idn==反转[idn]]；l={0}；a=0；Do[a=下一个回文[a]；如果[palQ[a，5]，AppendTo[l，a]]，{n，200000}]；我(*罗伯特·威尔逊v2004年9月30日*）
选择[范围[0，10^5]，
回文Q[#]&#==整数反转[#，5]&](*罗伯特·普莱斯2019年11月9日*）
|
|
|
交叉参考
|
囊性纤维变性。A007632号,A007633号,A029961号,A029963号,A029964号,A029965号,A029966号,A029967美元,A029968号,A029969号,A029970型.
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
