%I#17 2021年1月29日14:46:02

%S 1,2,4,3,11,5,22,7,6,12,56,8,79,23,13,9137,16172,10,24,57254,17,14，

%电话：80,37,25407,15466,29,58138,26,18667173,81,30821,19904,59,38，

%U 2551082,20,27,46139,821379,21,60,281744081712,471831467,39

%A075383的N逆。

%C整数置换：a（A075383（n））=A075388（a（n）；

%C A096782（n）=a（a（n））。

%C对于任何n>0，A002024（a（n））除以n.-Rémy Sigrist_，2021年1月29日

%H Reinhard Zumkeller，n的表，n=1..1000的a（n）</a>

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

%t nmax=100；行[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）；

%t A075383=数组[行，nmax]//展平；

%t a[n_]：=第一位置[A075383，n][[1]；

%t数组[a，nmax]（*Jean-François Alcover_，2017年4月28日*）

%o（哈斯克尔）

%o导入数据。列表（elemIndex）；导入数据。也许（来自Just）

%o a096780=（+1）。来自Just。（`elemIndex`a075383_list）

%o——_ Inhard Zumkeller_，2015年11月29日

%Y参考A002024、A075383、A096782。

%K nonn公司

%O 1,2号机组

%A _Reinhard Zumkeller，2004年7月9日