%I#4 2013年7月19日14:18:20
%S 1,2,5,19,34,61114175109416953390937215605116478220288,
%电话:455587552188
%N在A227617中记录数值。
%C a(n)=A227617(A227633(n));
%C A227633(n)=A100707(a(n))。
%o(哈斯克尔)
%o a227632 n=a227632_列表!!(n-1)
%o(a227632_list,a227633_list)=解压缩$(1,1):f 1 1 a227617_list其中
%o f i v(q:qs)| q>v=(q,i):f(i+1)q qs
%o|否则=f(i+1)v qs
%K nonn,更多
%O 1,2号机组
%A _Reinhard Zumkeller,2013年7月19日
|