登录
A050430型
(以n为基数2)的最长回文子字的长度。
14
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号.
关键词
非n,基础
扩展
由扩展雷·钱德勒2010年3月11日
状态
经核准的