A050430-OEIS公司

A050430型

（以n为基数2）的最长回文子字的长度。

1, 1, 2, 2, 3, 2, 3, 3, 4, 3, 3, 2, 3, 3, 4, 4, 5, 4, 4, 3, 5, 4, 3, 3, 4, 3, 5, 3, 3, 4, 5, 5, 6, 5, 5, 5, 4, 4, 4, 3, 4, 5, 5, 4, 6, 5, 4, 4, 5, 4, 6, 3, 5, 5, 5, 3, 4, 3, 5, 4, 4, 5, 6, 6, 7, 6, 6, 5, 5, 5, 5, 5, 7, 5, 4, 6, 4, 5, 4, 4, 5, 6, 4, 5, 7, 5, 5, 4, 4, 6, 6, 5, 7, 6, 5, 5, 6, 5, 7, 5, 4, 6, 6, 3, 4

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,3

一个(A083318号（n-1）=n；一个(A193159号（k））=3，1<=k<=26。 [莱因哈德·祖姆凯勒2011年7月17日]

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n，a（n）的表，n=1..16385=2^14+1

配方奶粉

a（n）<=最小值（a（2*n），a（2xn+1））。 [莱因哈德·祖姆凯勒2011年7月31日]

例子

（11基2）=1011，包含回文101，因此a（11）=3。

MAPLE公司

#A050430型[M1..M2]中n的n的最长回文因子长度-来自N.J.A.斯隆2012年8月7日修订

isPal:=进程（L）

局部d；

对于d从1到nops（L）/2 do

如果op（d，L）<>op（-d，L），则

返回false；

结束条件：；

结束do：

返回true；

结束进程：

#主程序启动

ans:=[]；

M1:=0；M2:=64；

对于从M1到M2的n，do

t1:=换算（n，基数，2）；

记录：=0：

l1:=nops（t1）；

对于从0到l1-1的j1，do

对于j2从j1+1到l1 do

F1：=[op（j1+1..j2，t1）]；

如果（isPal（F1）和j2-j1>rec），则rec:=j2-j1；fi；

日期：

ans：=[op（ans），rec]：

日期：

ans；

数学

f[n_]：=块[{id=整数位数[n，2]}，k=长度@id；而[Union[#==Reverse@#&/@Partition[id，k，1]][[-1]]！=真，k-]；k]；数组[f，105](*罗伯特·威尔逊v2011年7月16日*）

黄体脂酮素

（哈斯克尔）

导入数据。字符（intToDigit，digitToInt）

导入数字（showIntAtBase）

a050430 n=a050430_列表！！（n-1）

a050430_list=f 1，其中

f n=g（showIntAtBase 2 intToDigit n“”）：f（n+1）

gzs|zs==反向zs=长度zs

|否则=max（h$init zs）（h$tail zs

h zs@（'0'：_）=g zs

h zs@（'1'：_）=a050430$foldl（\v d->digitToInt d+2*v）0 zs

--莱因哈德·祖姆凯勒2011年7月16日

交叉参考

囊性纤维变性。A007088号;A050431号（基数3），A050432号（基数4），A050433号（以5为基数）。

囊性纤维变性。A215244型,A215467号,A215256号.

上下文中的顺序：A129843号 A349043型 A330036*A277329号 A071330号 A374758型

相邻序列：A050427号 A050428号 A050429号*A050431号 A050432号 A050433号

关键词

非n,基础

作者

克拉克·金伯利

扩展

由扩展雷·钱德勒2010年3月11日

状态

经核准的