搜索: a095309-编号:a095339
|
|
|
|
0, 1, 3, 5, 7, 17, 21, 31, 51, 65, 85, 127, 195, 257, 273, 325, 341, 455, 511, 771, 819, 1025, 1105, 1285, 1365, 1799, 2047, 3075, 4097, 4161, 4369, 4433, 5125, 5189, 5397, 5461, 7175, 7967, 8191, 12291, 12483, 13107, 16385, 16705, 17425, 17745, 20485, 20805
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
|
|
链接
|
|
|
例子
|
7是一个术语,因为7111的二进制表示和711011的负二进制表示都是回文的。
|
|
数学
|
negabin[n]:=negabin[n]=如果[n==0,0,negabin[商[n-1,-2]]*10+Mod[n,2]];选择[Range[0,2*10^4],和@@(PalindromeQ/@{IntegerDigits[#,2],negabin[#]})&]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A331193型
|
| 二进制和对偶Zeckendorf表示都是回文的数字。 |
|
+10 4
|
|
|
0, 1, 3, 33, 231, 255, 891, 3687, 21477, 1216041, 5360069, 418964451, 443750859, 1445812789, 23577810421, 25474675645, 154292473329, 1904542477755, 1925488579591, 9617724354513, 16654480398927, 169215938357145, 2563713753111945, 3408057776446851, 4019397080882727
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
|
|
例子
|
3是一个术语,因为它的二进制和对偶Zeckendorf表示都是11,这是回文。
33是一个术语,因为它的二进制表示形式100001和它的对偶Zeckendorf表示形式1010101都是回文的。
|
|
数学
|
mirror[dig_,s_]:=连接[dig,s,反向[dig]];
select[v_,mid_]:=选择[v,Length[#]==0||Last[#]!=中期&];
fib[dig_]:=加号@@(dig*Fibonacci[Range[2,Length[dig]+1]]);
pals=加入[{{}},休息[Select[IntegerDigits/@FromDigits/@Tuples[{0,1},22],序列计数[#,{0,0}]==0&]]];
dualZeckPals=Union@Join[{0},fib/@Join[镜像[#,{}]&/@(选择[pals,0]),镜像[#、{0}]//@(选择[pals,0];
binPalQ[n_]:=回文Q@整数位数【n,2】;选择[dualZeckPals,binPalQ]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
a(18)-a(22)来自柴华武2020年1月12日
a(23)-a(25)来自柴华武2020年1月13日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0、9、31、975、297097、816867、4148165871、152488124529、1632977901693、11162529166917、11925833175477、3047549778123957、389448736591355、8920885515768255
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
----------------------------------------------------------
1 0 0 0
2 9 1001 10001
3 31 11111 10000001
4 975 1111001111 100010000010001
5 297097 1001000100010001001 100001000000101000000100001
|
|
数学
|
lucasPalQ[n_]:=模块[{s={},m=n,k=1},当[m>0时,如果[m==1,k=1;AppendTo[s,k];m=0,如果[m==2,k=0;附加到[s,k];m=0,而[LucasL[k]<=m,k++];k--;附加到[s,k];m-=卢卡斯L[k];k=1]]];回文Q[Integer Digits[Total[2^s],2]];连接[{0},选择[Range[1,10^6,2],回文[IntegerDigits[#,2]]&&lucasPalQ[#]&]]
|
|
交叉参考
|
|
|
关键词
|
非n,基础,更多
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 4, 56, 80, 203, 572, 847, 1402, 93496, 128180, 431060, 467852, 1465676, 7742920, 8727388, 8923840, 9582707, 18245944, 18304588, 25154692, 27262924, 115404434, 209060644, 763786258, 860973806, 2042328148, 4719261289, 5236838932, 18202403140, 42897493894, 77310551669
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
a(24)-a(32)来自丹尼尔·苏图2019年11月16日
|
|
状态
|
经核准的
|
|
|
|
|
A352088型
|
| 二进制和最小tribonacci表示都是回文的数字。 |
|
+10 1
|
|
|
0, 1, 3, 5, 45, 2193, 7671, 35889, 53835, 74825, 3026205, 31953871, 86582437, 117169915, 128873391, 701373669, 868430067, 15262037703, 45305389845, 104484026691, 614071181169, 14894476590363, 24382189266573, 86808432666553, 869188423288227, 1352557858988953
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
|
|
例子
|
前5个术语是:
-------------------------------------
1 0 0 0
2 1 1 1
3 3 11 11
4 5 101 101
5 45 101101 1000001
|
|
数学
|
t[1]=1;t[2]=2;t[3]=4;t[n]:=t[n]=t[n-1]+t[n-2]+t[n-3];tribPalQ[n_]:=模[{s={},m=n,k},而[m>0,k=1;而[t[k]<=m,k++];k--;附加到[s,k];m-=t[k];k=1];回文Q[FromDigits@IntegerDigits[Total[2^(s-1)],2]];连接[{0},选择[Range[1,10^5,2],回文[IntegerDigits[#,2]]&&tribPalQ[#]&]]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 4, 6, 12, 22, 33, 64, 88, 174, 232, 462, 609, 1216, 1596, 3190, 4180, 8358, 10945, 21888, 28656, 57310, 75024, 150046, 196417, 392832, 514228, 1028454, 1346268, 2692534, 3524577, 7049152, 9227464, 18454926, 24157816, 48315630, 63245985, 126491968, 165580140
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
显然,形式F(2*k-1)-1(k>0)和形式2*F(2xk-1)-4(k>1)的数的并集,其中F(m)是第m个斐波那契数。
形式F(2*k-1)-1的数字具有相同的Zeckendorf和双重Zeckenderf表示。对于k>1,表示为1010…01,k-1 1与k-2 0交错。
|
|
链接
|
|
|
例子
|
6是一个术语,因为它的Zeckendorf表示1001和它的对偶Zeckenderf表示111都是回文。
|
|
数学
|
mirror[dig_,s_]:=连接[dig,s,反向[dig]];
select[v_,mid_]:=select[v,Length[#]==0 | | Last[#]!=中期&];
fib[dig_]:=加号@@(dig*Fibonacci[Range[2,Length[dig]+1]]);
ndig=12;pals1=Rest[IntegerDigits/@FromDigits@@Select[Tuples[{0,1},ndig],SequenceCount[#,{1,1}]==0&]];
zeckPals=Union@Join[{0,1},fib/@Join[镜像[#,{}]&/@(选择[pals1,1]),镜像[#、{1}]//@(选择[pals1,1];
pals2=Join[{{}},Rest[Select[IntegerDigits[Range[0,2^ndig-1],2],SequenceCount[#,{0,0}]==0&]]];
dualZeckPals=联盟@加入[{0},fib/@Join[mirror[#,{}]&/@(select[pals2,0]),mirror[#,{0}]&/@(selection[pals 2,0]]),micrror[#,{1}]&/@pals2]];
交集[zeckPals,dualZeckPals]
|
|
交叉参考
|
囊性纤维变性。A000045号,A000071号,A002113号,A006995号,A014190型,A027941号,A048268号,A060792号,A095309号,A104326号,A329459型.
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A352106型
|
| 二进制和最大tribonacci表示都是回文的数字。 |
|
+10 0
|
|
|
0, 1, 3, 5, 7, 27, 51, 325, 2193, 3735, 23709, 35889, 53835, 589833, 1294265, 17291201, 80719769, 1274288105, 23157444917, 23635236877, 230684552043, 1218891196337, 1722894010643, 2544113575977, 93096801594005, 175482093541881, 256924005422487, 372295593308821
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
|
|
例子
|
前5个术语是:
- ---- ------------- -------------
1 0 0 0
2 1 1 1
3 3 11 11
4 5 101 101
5 7 111 111
6 27 11011 11111
7 51 110011 111111
8 325 101000101 111111111
9 2193 100010010001 1001101011001
10 3735 111010010111 1111111111111
|
|
数学
|
t[1]=1;t[2]=2;t[3]=4;t[n]:=t[n]=t[n-1]+t[n-2]+t[n-3];trib[n_]:=模[{s={},m=n,k},而[m>0,k=1;而[t[k]<=m,k++];k--;附录[s,k];m-=t[k];k=1];整数位数[总计[2^(s-1)],2];lazyTribPalQ[n_]:=模块[{v=trib[n]},nv=长度[v];i=1;当[i<=nv-3时,如果[v[[i;;i+3]]=={1,0,0},v[[i;;i=3]]={0,1,1};如果[i>3,i-=4]];i++];i=位置[v,_?(#>0&)];如果[i=={},True,回文Q[FromDigits[v[i[[1,1]]-1]]]]]]; 连接[{0},选择[Range[1,10^5,2],回文[IntegerDigits[#,2]]&&lazyTribPalQ[#]&]]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.010秒内完成
|