%I#18 2018年7月23日11:48:35

%S 2,5,11,23,26,47,53,56,95107113116122131191215227233236245，

%电话：2542632662812873834314554673476491509518527530533，

%电话：536563566575581584599616176566777678639119359479956983

%N如果a，b按顺序排列，那么a*b+1也是。

%H Alois P.Heinz，n表，n=1..20000的a（n）（来自Reinhard Zumkeller的前1000个术语）

%t f[l_]：=块[{k=l}，选择[Union[Flatten[AppendTo[k，Table[k[i]]*k[[j]]+1，{i，1，Length[k]}，{j，1，i}]]，#<1000&]]；嵌套列表[f，{2}，7][[-1]]（*_Robert G.Wilson v_，2004年5月23日*）

%o（哈斯克尔）

%o导入数据。集合（singleton、deleteFindMin、insert）

%o a009293 n=a009293_列表！！（n-1）

%o a009293_list=f[2]（单例2），其中

%o f xs s=m:f xs'（foldl（flip insert）s）'（map（（+1））。（*m））xs'））

%o其中xs'=m:xs

%o（m，s'）=删除查找最小值

%o--_Reinhard Zumkeller，2011年8月15日

%Y参考A009388、A009299、A192476。

%K nonn公司

%O 1,1号机组

%A·热心的W·威尔逊_