搜索： a120764-编号：a120765
|
| |
| |
|
|
|
6, 2, 3, 2, 6, 1, 7, 1, 3, 2, 4, 2, 10, 1, 2, 2, 7, 2, 2, 3, 2, 0, 4, 0, 6, 1, 6, 1, 5, 1, 2, 0, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
以2和10为底的回文是(A007632号)：0，1，3，5，7，9，33，99，313，585，717，7447，9009，15351，32223…所以a（1）=6个一位数，a（2）=2个两位数回文，依此类推。
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
安东·丘平（Chupin（AT）icmm.ru），2007年4月8日
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
0, 1, 3, 5, 7, 9, 33, 99, 313, 585, 717, 7447, 9009, 15351, 32223, 39993, 53235, 53835, 73737, 585585, 1758571, 1934391, 1979791, 3129213, 5071705, 5259525, 5841485, 13500531, 719848917, 910373019, 939474939, 1290880921, 7451111547
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1、3
|
|
|
评论
|
查尔顿·哈里森于2001年12月1日发现了一个新的二元小数回文记录：110001011100001010110100001110101000001000001000111100010110101000011110100011_2=7475703079870789879703075747_10。二进制字符串包含83位数字！从那时起，他又增加了20个术语-罗伯特·威尔逊v2006年7月3日
|
|
|
参考文献
|
M.R.Calandra，以十进制和二进制表示法回文的整数，J.Rec.Math。，18（1985年至1986年第1期），47。
S.Pilpel，《更多双回文整数》，J.Rec.Math。，18 (1985), 174-176.
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
Attila Bérczes和Volker Ziegler，关于同时回文，arXiv:1403.0787[math.NT]，2014年（见第9页）。
M.R.Calandra先生，十进制和二进制表示法中都是回文的整数，J.Rec.数学。，18（1985年至1986年第1期），47。（带注释的扫描副本）[《数学评论》18.3（1985），第168-173页]
|
|
|
MAPLE公司
|
N： =12:#获取所有术语<=10^N
ispal2:=进程（n）局部L；如果n：：even，则返回假fi；
五十： =换算（n，基数，2）；evalb（L=ListTools:-反向（L））结束进程：
版本10：=程序（n）局部L；五十： =换算（n，基数，10）；添加（10^i*L[-i-1]，i=0..nops（L）-1）结束进程：
pals10：=进程（d）局部x，y；
如果d:：即使[seq（x*10^（d/2）+rev10（x），x=10^
否则[seq（seq（x*10^（（d+1）/2）+y*10^（（d-1）/2）+rev10（x），y=0..9），x=10^
fi（菲涅耳）
结束进程：
0，1，3，5，7，9，seq（op（选择（ispal2，pals10（d））），d=2..N）#罗伯特·伊斯雷尔2015年12月31日
|
|
|
数学
|
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，-Ciling[1/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]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，2]，AppendTo[l，a]]，{n，1000000}]；我(*罗伯特·威尔逊v，2004年9月30日*）
b1=2；b2=10；lst={}；Do[d1=整数位数[n，b1]；d2=整数位数[n，b2]；如果[d1==反转[d1]&&d2==反转[d2]，追加到[lst，n]]，｛n，0，2 10^7｝]；第一次(*文森佐·利班迪2015年12月31日*）
选择[Range[0，10^5]，PalindromeQ[#]&#==IntegerReverse[#，2]&](*罗伯特·普莱斯2019年11月9日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
a007632 n=a007632_列表！！（n-1）
a007632_list=过滤器（（==1）。a178225）a002113_列表
（Python）
来自itertools导入链
A007632号_list=排序（[n表示链中的n（（int（str（x）+str（x）[：：-1]表示范围（1，10**6）中的x），（int（str（x）+str（x）[-2:：-1]表示范围（10**6）中的x））if bin（n）[2:]==bin（n）[：1:-1]]）#柴华武，2014年11月23日
（岩浆）[n:n in[0..2*10^7]| Intseq（n，10）eq Reverse（Intseq，10））和Intseq//文森佐·利班迪2015年12月31日
（PARI）isok（n）=my（d=数字（n），b=二进制（n））；（d==Vecrev（d））和（b==Vecrv（b））\\米歇尔·马库斯2015年12月31日
|
|
|
交叉参考
|
囊性纤维变性。A007633号,A029961号,A029962号,A029963号,A029964号,A029804号,A029965美元,A029966号,A029967号,A029968号,A029969号,A029970型,A029731号,A097855号,A099165号.
|
|
|
关键词
|
基础,非n,美好的
|
|
|
作者
|
|
|
|
扩展
|
乔治·罗素（George Russell）的另一个任期，2000年11月20日
乔治·罗素（ger（AT）tzi.de）的进一步条款，2001年11月2日
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
