%I#28 2017年4月28日12:02:25

%S 1,2,4,3,6,9,8,12,16,20,5,10,15,25,30,18,24,36,42,48,54,7,14,21,28,35，

%电话：49,56,32,40,64,72,80,88,96104,27,45,63,81,90,99108117126,50,60，

%电话：7010011020130140160160.11,22,33,44,55,66,77121132143154,84

%N重新排列自然数，使接下来的N个数都可以被N整除。

%C逆整数置换A096780:a（A096780（n））=A096780；A096781（n）=a（a（n））_Reinhard Zumkeller，2004年7月9日

%C素数按自然顺序出现：a（A072205（n））=A000040（n）_Reinhard Zumkeller_，2009年6月22日

%C n=第n行的最大公约数-Reinhard Zumkeller_，2015年11月30日

%H R.Zumkeller，n的表，n=1..100000的a（n），2009年6月22日

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%e 1；

%e 2、4；

%e 3、6、9；

%e 8、12、16、20；

%e 5、10、15、25、30；

%e 18、24、36、42、48、54；

%e第7、14、21、28、35、49、56页；

%e 32。。。

%t行[1]={1}；row[n_]：=行[n]=（For[rows=Join[row/@Range[n-1]]；ro={}；k=n，Length[ro]<n，k=k+n，If[FreeQ[rows，k]，AppendTo[ro，k]]]；ro）；阵列[行，12]//扁平（*_Jean-François Alcover_，2017年4月28日*）

%o（哈斯克尔）

%o导入数据。列表（（\\））

%o a075383 n k=a075383_tabl！！（n-1）！！（k-1）

%o a075383_row n=a075383 _ tabl！！（n-1）

%o a07583_tabl=f 1[1..]其中

%o f x zs=ys:f（x+1）（zs\\ys）其中

%o ys=采用x$过滤器（（==0）。（`mod`x））zs

%o a075383_list=连接a075383表

%o--_Reinhard Zumkeller_，2015年11月30日

%Y参见A075384、A075385、A07538、A0758、A0753、A07539。

%Y参见A000040、A072205、A096780、A09678、A263896（中心术语）。

%K nonn，tabl，看，别紧张

%O 1,2号机组

%A _Amarnath Murthy，2002年9月22日

%E 2003年1月28日来自_Sascha Kurz的更多条款