|
| |
| |
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 252, 6556, 6776, 7117, 10101, 12621, 20202, 22722, 30303, 1784871, 1786871, 1788871, 1913191, 1915191, 1917191, 1919191, 1444884441, 334495594433, 334843348433, 355110011553, 355746647553, 10614366341601, 14102600620141, 28095922959082, 38072044027083
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1、3
|
|
|
链接
|
|
|
|
数学
|
palQ[n_Integer，base_Integer]：=块[{}，反转[idn=IntegerDigits[n，base]]==idn]；genPal[n_]：=块[{id=IntegerDigits@n，insert={{}，{0}，}1}，[2]，{3}，[4}，5}，6}，7}，9}}，FromDigits@连接[id，#，反向@id]&/@insert]；k=1；lst={0，1，2，3，4，5，6，7，8，9}；而[k<1000001，s=选择[genPal[k]，palQ[#，20]&]；如果[s！={}，则追加到[lst，s]；打印@s；lst=分拣@扁平@lst]；k++]；第一次试验
b1=10；b2=20；lst={}；Do[d1=整数位数[n，b1]；d2=整数位数[n，b2]；如果[d1=Reverse[d1]&&d2=Reverse[d2]，AppendTo[lst，n]]，{n，0100000}]；第一次(*文森佐·利班迪2014年11月23日*）
|
|
|
程序
|
（岩浆）[0..10000000]中的n：n | Intseq（n，10）eq Reverse（Intseq，10））和Intseq//文森佐·利班迪2014年11月23日
（Python）
从gmpy2导入数字
def palQ（n，b）：#检查n是否是以b为底的回文
s=数字（n，b）
返回s==s[：：-1]
def-palQgen10（l）：#长度<=2*l的回文无序生成器
如果l>0：
产量0
对于范围（1，10**l）内的x：
s=字符串（x）
产量int（s+s[-2:：-1]）
产量int（s+s[：：-1]）
A250408型_列表=已排序（[n代表palQgen10（6）中的n，如果palQ（n，20）]）
|
|
|
交叉参考
|
囊性纤维变性。A007632号,A007633号,A029961号,A029962号,A029963号,A029964号,A029804号,A029965号,A029966号,A029967美元,A029968号,A029969号,A029970型,A029731号,A097855号,250409元,A250410型,A250411型,A099165号,A250412型.
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
