%I#4 2017年6月7日19:15:19
%S 3,10,14,18,25,33,41,45,49,56,60,64,72,76,80,88,96104108112119,
%电话:127135139143151159167171175183191199203207215223,
%电话:2312323924625025426266270278286294298302310314318
%A288167中1的N个位置;补充A288168。
%C猜想:当n>=1时,-1<6-a(n)/n<3。
%H Clark Kimberling,n的表,n的a(n)=1..10000</a>
%ts={0,0};w[0]=StringJoin[Map[ToString,s]];
%t w[n_]:=字符串替换[w[n-1],{“00”->“0010”,“1”->“000”}]
%t表[w[n],{n,0,8}]
%t st=角色代码[w[11]]-48(*A288167*)
%t压扁[位置[st,0]](*A288168*)
%t压扁[位置[st,1]](*A288169*)
%Y参见A288167、A288169。
%K nonn,简单
%O 1,1号机组
%A_Clark Kimberling_,2017年6月7日
|