%I#14 2013年12月5日19:56:53
%S 1,2,3,6,4,8,12,18,24,36,48,72144,5,10,15,16,20,30,32,40,54,60,64,80,
%电话90,96108120160180192216240270288320324360384432480,
%电话:540576648720768864960108011521296144015361620172819201944
%N a(1)=1,a(2)=2;然后是所有已有项子集的新乘积,然后是第一个不存在的整数,依此类推。
%C自然数的另一种重新排列。
%C说明:序列的迭代扩展是对步骤的循环:(i)选择序列中尚未出现的最小整数并将其附加。(ii)从序列的当前有限版本中计算两个或多个不同因子的所有乘积。(iii)从该集合中删除序列中已有的成员。将集合中数字的排序列表附加到序列中。返回(i).-_R.J.Mathar,2009年2月21日
%H R.J.Mathar,n表,n=1..385的a(n)</a>
%e a(3)=3,因为{1,2}的所有乘积都已经包含在内。{1,2,3}生成的唯一新乘积是6,然后4是第一个没有出现的整数。然后{1,2,3,6,4}生成8(=2*4),12(=2*6=3*4)、18(=3*6)、24(=6*4=2*3*4))、36(=2*3x6)、48(=2*6*4)和72(=3*6*4)以及144(=2*3*6*5)。那么下一个学期是5。等等。
%tL[1]={1}L[n_]:=L[n]=Join[L[n-1],Complement[Union[Exp[Map[Total,Log[Subsets[Delete[L[n-1],1]]]],L[n-2],{n}]L[6]
%Y参见A096111、A052330。
%K nonn公司
%O 1,2号机组
%A _Amarnath Murthy,2004年6月29日
%E编辑:Joel B.Lewis,2006年11月15日
|