#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a02481 显示1-1(共1个);%I a022481 %S a02481 1,11,11,12211113211121311221212121312221221212121222221, %T a02481 1122112311213111221121123121122212,%U A022481 21122311131211332112311 %N A022481从右侧描述上一项(方法B-初始项为1);%C A022481方法B=“数字”-指示后跟“频率”。 %H A022481 Reinhard Zumkeller,n=1..24的n,a(n)表%例如,A022481 e A022481例如,1321之后的术语是通过“1 once,2 once,3 once,1 once 1 one”获得的,这就产生了11213111.;%t A022481 A022481 A022481[1]:=1;A022481[n_]:=A022481[n]]=from digits[flat[{First[;],长度[;]]]&/@Split[reversintegerdigits[A022481[n-1]]]]];地图[A022481,范围[15]]](*\u Peter J J.C.Moses[4月22日,4月22日,4月22日,4月22日,4月22日,[22日,[2013年*) %t A022481 a[1]=1;[[n[[[[[[n]u]:a[n]:a[n]=from digits[压扁[更换[更换[替换[分裂[分裂[逆向[整数数字数字[a[a[n-1]]]]]][,{x x,y{{x,长度{x,y}]},{1}],{x x,x,y{y,y},z{{x,y,z}}{x,x,y,z}}{1}1}],{x{x{x,长度[{x{x{x}]},{1}1},{1}1}1}]]];Array[a,15](*\u Ivan n.Ianakiev_2017年6月22日*) %t A022481 NestList[FromDigits@Flatten@Reverse@Map[{First@,Length@}&,Split@IntegerDigits@\&,1,11](**u Michael De Vlieger ,2017年6月26日*) %o A022481(Haskell) %o A022481导入数据。列表(组,转置);%o A022481 A022481 n=A022481_列表!!(n-1)以(n-1)的;%o A022481 A022481 A022481 UList=1:f[1]::[整数]where;%o A022481 f xs=(读取$concatMap Showys ys):f ys何何处;%o A022481 ys=concat$Transcase[地图头zss,地图长度zss S];%o A022481 zss=逆向$集团XSS;%o A022481--UReinhard ZumkKelleler_年1月26日;%Y A022481%的2009年1月26日;%Y A022481 Cf A022488,A0225514,A0225515,A0225515,A010 00224%;A022484年1[22516,A022517、A022518、A022519、A022520。 %K A022481 nonn,base,easy,nice %O A022481 1,2 %A A022481 %u Clark Kimberling %K A022481 Non,base,easy,nice %A A022481 %A A022481 %u Clark Kimberling