%I#17 2012年8月12日18:57:30

%S 1,1,2,1,3,2,3,1,4,3,3,2,2,3,4,1,5,4,5,3,3、2,2,5,3,1,6，

%温度5,5,4,4,4，4,3,3,5,5，3,6,3,2,2,2,6,2,5,3,,3,4,5,6,1,7,6,6，

%U 5,5,5,1,4,7,4,4,4，4,4,1,3,3,3，3,5,7,5,3,3-6

%N（N个基数2）的最长回文前缀的长度。

%因为n的二进制展开总是以1开头，所以最后的0不会影响结果，所以a（2n）=a（n）。

%H N.J.A.Sloane，N的表，N=0..10000的A（N）</a>

%e。。。

%e 4=100->1

%e 5=101->3

%e 6=110->2

%e 7=111->3

%e 8=1000->1

%e 9=1001->4

%e。。。

%p版本：=进程（lis）

%p局部t1，n，i；

%p t1:=[]；n： =nops（lis）；

%i从1到n的p做t1:=[op（t1），lis[n+1-i]]；结束do；

%p返回t1；

%p端程序；

%p isPal:=进程（L）

%p局部d；

%p代表d从1到nops（L）/2 do

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

%p返回false；

%p end if；

%p端do：

%p返回true；

%p端程序：

%p A215467L:=程序（L）

%p局部a、c；

%pa:=1；

%p表示c从2到nops（L）do

%p如果是isPal（[op（1..c，L）]），则

%p a：=c；

%p end if；

%p端do：

%p返回a；

%p端程序：

%p A215467：=程序（n）

%p如果n<=1，则为1；

%其他转速（换算（n，基数，2））；

%p A215467L（%）；

%p end if；

%p端程序：

%Y参考A050430，A215469。

%K nonn，基础

%0、4

%A _N.J.A.Sloane，2012年8月11日