#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a022518 显示1-1(共1个) %I a022518 %S a022518 7,711171111122112711221127121122122112211122121712122122122121813221218118,%U A022518 21122223112712112311221321 %N A022518从右侧描述上一个术语(方法B-初始术语为7)。 %C A022518方法B=“数字”-指示后跟“频率”。;%H A022518 Reinhard Zumkeller,n=0..21的n,a(n)表%A022518 e A022518通过“1一次、7一次、1两次1”来获得1171以后的术语,这就给了117112. %t A022518 split[n_u]:=split[Reverse[IntegerDigits[n]]];;%t A0225518 list1[n[n]:=List/@Length/@split[n];riffle1[n\u]:=Riffle[split[n],lis1[n]];;;%t A022518 tab[n[n[n[n[n[n[n[n]的]:=表[i,{i,1,2*长度[列表1[n]n]的长度[列表1[n[n]的1[n]],2}]; %t A022518列表2[n_9]:=附加[riffle1[n][[#]],[[n][[[[][[[][[[[]][[[]][[]]][[[]和[[[]的]的[[[[]]的[[[[]]的]的[[n]的]的[n]的]的平坦[n]的平坦[n]的平坦的[n]的[n]的]的;[n[u]的]:=RIFFFLE[第一/@平坦[n[n],最后/@平坦[n]]];;;%t A0225518 a[1][1]7;7;a[n[n-1]][[a[n-1]]];阵列[a,10](*或*或*的])的;%t A0225518 a[1[1]=7;7;7 a[n}:=FromDigits[Flatten[Replace[Replace[Split[Reverse[IntegerDigits[ %t A022518 a[n-1]]],{x,y}->{x,长度[{x,y}]},{1}],{x,y{x}{x,长度{x,y,z}},{1},{1}],{1},{x{x}},{1}]]]]]%;阵列[a,10](*_伊万伊万N.Ianakiev,2010年10月07日,2016年10月07日*);%o A022518(Haskell);%o A022518导入数据。导入数据。列表(组,组,转座);%o A022518导入数据。列表(组,转座);%o a0222518 A022518 A022518 N=A022518 N=A022518 N=A022518 N=A022518[u列表![列表![u列表![如u列表![u[在!!自本年起,本公司除除自此以外的第8年起,自本年起,本公司除自此以外,本公司除本年第8年起除本年起除本年起除本公司以外的任何一年起,本公司自本年起除本年起除本年起除本年起除本年起本公司除本年起除本年起本公司除本年起除本年起本公司除本年起除本年起除本年起本公司除本年起本公司除本年起除本年起除除本年起除本年起本公司除除除本年起除除本年起除除本年起除除本年起除除除除本年起除除本公司一年起除除除本年起除除除本公司除除除除除除除除除除除除除本公司A0515254年,A022517,A022519,A022519,A022520。;%K A0225518 nonn,基地,简单,好,好。;%O A022518 0,1;%A A022518 UN N.J.A.Sloane;;%E A022518更多术语来自_erichfriedman;%E A0225518更正第八学期第八期由UPatrick De Geest_,1999年6月15日,1999年6月15日 10; ;%K A0225518改自第八学期更正第八在