|
| |
|
| A029969美元 |
| 以10和14为底的回文数字。 |
|
40
|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 323, 464, 717, 858, 999, 1111, 39593, 59095, 420024, 546645, 9046409, 9578759, 9813189, 535505535, 564303465, 595121595, 5736116375, 6758008576, 10476867401, 11652825611, 14203330241
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
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，14]，AppendTo[l，a]]，{n，300000}]；我(*罗伯特·威尔逊v2004年9月3日*）
b1=10；b2=14；lst={}；Do[d1=整数位数[n，b1]；d2=整数位数[n，b2]；如果[d1=Reverse[d1]&&d2=Reverse[d2]，AppendTo[lst，n]]，{n，01000000}]；第一次(*文森佐·利班迪2014年11月23日*）
palQ[n_]：=模块[{idn14=整数位数[n，14]}，n==整数反转[n]&&idn14==反转[idn14]]；选择[Range[10^7]，palQ]（*程序使用Mathematica版本10*中的IntegerReverse函数）(*哈维·P·戴尔2016年4月23日*）
选择[范围[0，10^5]，
回文Q[#]&#==整数反转[#，14]&](*罗伯特·普莱斯2019年11月9日*）
|
|
|
黄体脂酮素
|
（岩浆）[0..10000000]中的n：n | Intseq（n，10）eq Reverse（Intseq，10））和Intseq//文森佐·利班迪，2014年11月23日
|
|
|
交叉参考
|
参见。A007632号,A007633号,A029961号,A029962号,A029963号,A029964号,A029804号,A029965号,A029966号,A029967号,A029968号,A029970型,A029731号,A097855号,A099165号.
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
