#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a022514 显示1-1(共1个) %I a022514 %S a022514 3,311113311223311223112311221221221221221221221221212212122121421421421421212122121221212122121212212121221212122121212212121221212122121212121212212121212122121212121212212121212121212121212121212121212121212121212121212121,%U A022514 2112122231231212312312311221321 %N A022514从右侧描述上一个术语(方法B-初始术语为3);%C A022514方法B=“数字”-指示后跟“频率”。;%H A022514 Reinhard Zumkeller,n=0..21的n,a(n)表%e A022514 1131之后的术语是通过说“1一次,3次,1次2次”得到的,即113112。 %t A022514 A022514[1]:=3;A022514[n犠=FromDigits[Flatten[{First[#],长度[#]]&/@Split[Reverse[IntegerDigits[A022514[n-1]]]];Map[A022514,Range[15]](*_peterj.C.Moses,2013年4月22日*) %o A022514(Haskell) %o A022514导入数据。列表(组,转置) %o A022514 A022514 n=A022514_列表!!(n)以n;%o A022514 ys=U list=3:f[3]::[Integer]where;%o A022514 f xs=(读取$concatMap Showys ys):f ys哪里;%o A022514 ys=concat$Transcase[地图头zss,地图长度zss S];;%o A022514 zss=反向美元集团xs;%o A0225514 zss=反向$集团XSS;%o A0225514--“U Reinhard Zumkelleler_年1月26日;%Y A0225514年1月26日;%Y A0225514 Cf A022481、A022488、A0225588、A0225515151514[图头ZS头0-A022520. %K A022514nonn,base,easy,nice %O A022514 0,1 %A A022514 _N.J.A.Sloane %E A022514更多条款来自1999年6月15日的《OEIS终端用户许可协议》,http://OEIS.org/License