%I#15 2014年12月5日09:09:36
%S 6,61116116112112611221126121211211211211212212211161211221,
%电话:1122122111611322112212211122222311212611322112212,
%电话:2111221222311212112311221321
%N从右边描述上一个术语(方法B-初始术语为6)。
%C方法B=“数字”-指示后跟“频率”。
%H Reinhard Zumkeller,n表,n=0..21的a(n)</a>
%e 1161之后的术语通过“1一次,6一次,1两次”获得,即116112。
%o(哈斯克尔)
%o导入数据。列表(组,转置)
%o a022517 n=a022517_列表!!n个
%o a022517_list=6:f[6]::[整数],其中
%o f xs=(读取$concatMap show ys):f ys其中
%o ys=concat$转置[map head zss,map length zss]
%o zss=反向$group xs
%o——Reinhard Zumkeller,2014年1月26日
%Y参考A022481、A022488、A022514-A022520。
%K nonn,基础,简单,好
%0、1
%A _N.J.A.斯隆_
%E更多术语摘自Patrick De Geest,1999年6月15日
|