#从百科全书的问候序列行!搜索:id:a050430 显示1-1的1个1 将一个一个一个的1个;%I a050430;%S A0504301,1,1,2,2,2,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,5,5,5,6,5,5,6,5,;%T A0500430 5,5,5,4,4,4,4,4,4,4,4,4,4,5,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,5,5,5,5,5,5,4,4,6,6,5,5,6,6,5,6,5,5,5,4,4,6,3,4 %N A050430(N基2)的最长回文子字长度。 %C A050430 a(A083318(N-1))=N;a(A193159(k))=3,1<=k<=26。[u Reinhard Zumkeller,2011年7月17日] %H A050430 Reinhard Zumkeller,n=1..16385=2^14+1的n,a(n)表%F A050430 a(n)<=最小值(a(2*n),a(2*n+1))。[_ReinhardZumkeller,2011年7月31日] %e A050430(11基2)=1011,包含回文101,因此a(11)=3。 %p A050430#A050430 n在[M1..M2]中n的最长回文因子长度,2012年8月7日,2012年8月11日修订 %p A050430 isPal:=proc(L) %p A050430 local d;;%p A050430为d从1改为nops(L)/2办;%p A050430假如op(d,L)<>op(-d,L)则;%p A0504430返回false;;%p A050430 end if;;%p A050430 end if;;%p A050430 end do:;;%p A050430 end do:;%p A050430返回真正;;%p A050430结束proc:;%p p A050430;%p A050430开始主程序开始;%p A050430 ans:=[];;%p A0504430 M1:=0;M2:==0;M2:====;%p A050430 50430 50430 5043064个;;%p A050430关于n从M1到M2的n做;%p A050430T1:=convert(n,base,2);;;%p A050430REC:=0:;%p A0504430 l1:=nops(t1);;;%p A050430将j1从0到l1-1的做;%p A0504430为j2从j1+1到l1-1的做;%p A0504830为j2从j1+1到l1的l1做 %p A05048F1:=[op(j1+1..j2,t1)];;;%p A050430IF(isPal(F1)和j2-j1>rec)则(isPal(F1)和j2-j1>rec)然后,rec)的A050430 50记录:=j2-j1;fi; %p A050430 od: %p A050430 od: %p A050430 ans:=[操作(ans),记录]: %p A050430 od: %p A050430 ans; %t A050430 f[n_u]:=Block[{id=IntegerDigits[n,2]},k=Length@id;而[Union[#==Reverse@#&/@Partition[id,k,1]][[-1]]!=True,k--];k];Array[f,105](*\u Robert G.Wilson vü2011年7月16日*) %o A050430(Haskell) %o A050430 import Data.Char(intToDigit,digitToInt) %o A050430 import Numeric(showinttbase) %o a05430 a05430 n=A050430_list!!(n-1);%o A050430 A050430 U list=f 1 where;%o A050430F n=g(ShowIntabase 2 intToDigit n”“):f(n+1);%o A050430G zs | zs==反向zs=长度zs=长度zs;%o A0504430;否则=最大(h$init zs)(h$尾部zs);%o A0504430 h zs@((‘0’:U)=g zs |%o A0504430 h zs@(‘0’:U)=g zs;%o A0504430 h zs@(((((‘0’)o A050443044301':d)=A050430$foldl(\v d->digitToInt d+2*v)0 zs %o2011年7月16日,%。#根据OEIS最终用户许可协议提供内容:http://oeis.org/LICENSE