1,3号

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

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

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

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

#A050430号[M1..M2]-from中n的n的最长回文因子的长度N、 斯隆，2012年8月7日，2012年8月11日修订

isPal:=过程（L）

局部d；

d从1到nops（L）/2 do

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

返回false；

结束if；

结束do：

返回true；

结束过程：

#主程序开始

答案：=[]；

M1:=0；M2:=64；

从M1到M2 do的n

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

记录：=0：

l1:=nops（t1）；

对于从0到l1-1 do的j1

对于j2，从j1+1到l1 do

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

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

外径：

外径：

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

外径：

答案；

f[nü]：=块[{id=IntegerDigits[n，2]}，k=Length@id；而[Union[#==Reverse@&/@Partition[id，k，1]][[-1]]！=True，k--]；k]；数组[f，105](*罗伯特·G·威尔逊五世2011年7月16日*）

（哈斯克尔）

导入Data.Char（intToDigit，digitToInt）

导入数字（ShowIntaBase）

a050430 n=a050430\u列表！！（n-1）

a050430_list=f1其中

f n=g（显示基2 intToDigit n“”）：f（n+1）

g zs | zs==反向zs=长度zs

|否则=最大值（h$init zs）（h$tail zs）

h zs@（'0'：\u）=g zs

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

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

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

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

上下文顺序：邮编：A182745 邮编：A129843 A330036型*A277329号 A071330型 A092333号

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

不,基础

克拉克·金伯利

延长雷·钱德勒2010年3月11日

经核准的