登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A265509型 a(n)=最大的基2回文m<=2n+1,使得m的每一个以2为底的数字<=2n+1的对应数字;m以10为基数。 70
1、3、3、5、5、7、9、9、9、9、15、17、17、21、21、21、17、27、21、21、31、33、33、33、33、33、33、33、33、33、33、33、45、45、33、33、51、33、33、33、51、51、51、53、63、65、65、65、65、65、65、65、65、73、73、65、85、73、73、93、93、65、65、99、99、99、99、99、99、73、107、107、85、119、73、107、93、127、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129、129 129,153 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,2个

评论

A007088号(a(n))=A265510(n) 一。-莱因哈德·祖姆凯勒2015年12月11日

链接

莱因哈德·祖姆凯勒,n=0..8191的n,a(n)表

枫木

ispal:=proc(n)#base-b回文组测试

本地L,Ln,i;

全球b;

L:=转换(n,base,b);

nopl(Ln)=不合格品;

我到地板(1/2*Ln)做

如果L[i]<>L[Ln+1-i],则返回false end if

结束do;

返回true

结束过程

#求max pal<=n,在n的base-b阴影中,以10为基数

10以下:=proc(n)全局b;

局部t1、t2、i、m、sw1、L2;

如果n mod b=0,则返回(0);fi;

t1:=转换(n,base,b);

对于m从n乘-1到0 do

如果是ispal

t2:=换算(m,base,b);

L2:=nops(t2);

sw1:=1;

我从1到L2做

如果t2[i]>t1[i],则sw1:=-1;中断;fi;

外径:

如果sw1=1,则返回(m);fi;

金融机构;

外径;

结束程序;

b: =2;[序号(10以下(2*n+1),n=0..144)]A265509型

#找到max pal<=n,在n的base-b阴影中,写下base b

底边:=proc(n)全局b;

本地t1、t2、i、m、mb、sw1、L2;

如果n mod b=0,则返回(0);fi;

t1:=转换(n,base,b);

对于m从n乘-1到0 do

如果是ispal(m),那么

t2:=换算(m,base,b);

L2:=nops(t2);

sw1:=;

我从1到L2做

如果t2[i]>t1[i],则sw1:=-1;中断;fi;

外径:

如果sw1=1,则mb:=add(t2[i]*10^(i-1),i=1..L2);return(mb);fi;

金融机构;

外径;

结束程序;

b: =2;【seq(下框(2*n+1,n=0..144)】A265510

数学

A265509型=FromDigits[Min/@Transpose[{,Reverse@#}],2]&@IntegerDigits[2#+1,2]&(*郑焕民,2016年8月22日*)

黄体脂酮素

(哈斯克尔)

a265509 n=a265509_列表!!n

a265509_list=f(尾a030308_tabf)[[]]其中

f(bs::bss)pss=y:f bss pss'其中

y=foldr(\d v->2*v+d)0年

(ys:U)=dropWhile(\ps->不是$和$zipWith(<=)ps bs)pss'

pss'=如果bs/=反向bs,则pss其他bs:pss

--莱因哈德·祖姆凯勒2015年12月11日

交叉引用

与回文的楼层和天花板相关的序列:A175298号,A206913号,A206914号,邮编:A261423,A262038号,以及开始于A265509型.

囊性纤维变性。A007088号,A030308号.

上下文顺序:A196189号 A206543号 A274988号*甲265527 A217250号 A213923号

相邻序列:甲265506 A265507型 A265508型*A265510 邮编:A265511 A265512

关键字

,基础,

作者

N、 斯隆2015年12月9日

状态

经核准的

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年8月14日04:13。包含336477个序列。正在运行OE4(运行)