%I#35 2023年11月2日14:19:11

%S 1,2,5,3,10,4,14,8,6,9,20,7,28,13,11,17,33,12,37,18,15,19,43,16,24,27，

%电话：22,26,57,23,61,31,21,32,25,30,67,36,29,40,74,35,81,41,39,42,89,45,50，

%U 46,34,47100,48,53,49,38,56107,52115,60,51,64,54,59128,65,44,55

%N将A064413视为给出正整数的置换；序列给出了逆置换。

%C Mathematica程序计算EKG序列A064413，然后确定逆置换_T.D.Noe_，2002年11月13日

%H Ray Chandler，n表，n=1..100000的a（n）（来自T.D.Noe的前1000个术语）

%H J.C.Lagarias、E.M.Rains和N.J.A.Sloane，<A href=“https://projecteuclid.org/journals/experimental-mathematics/volume-11/issue-3/The-EKG-Sequence/em/1057777433.full（完整）“>EKG序列</a>，Exper.Math.11（2002），437-446；<a href=”https://arxiv.org/abs/math/0204011“>arXiv-print</a>，arXiv:math/0204011[math.NT]，2002年。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/EKGSequence.html“>EKG序列。

%H<a href=“/index/Ed#EKG”>与EKG序列相关的序列的索引条目</a>。

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

%e原始置换具有循环（1）（2）（3，4，6，9，10，5）（…，20，18，12，7，14，13，28，26，…）（8）。。。

%t最大N=200；lst＝｛1，2｝；未使用=范围[3，maxN]；发现=真；While[已找到，已找到=False；i=0；While[！已找到&&i<长度[未使用]，i++；如果[GCD[lst[[-1]]，未使用的[[i]]>1，则发现=True；附加到[lst，未使用的[[i]]]；unused=删除[unused，i]]]；接受[订购[lst]，未使用的[[1]]-1]

%o（哈斯克尔）

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

%o a064664=（+1）。来自Just。（`elemIndex`a064413_list）

%o--_Reinhard Zumkeller_，2014年5月1日，2011年9月17日

%Y参见A064413、A064665、A06466、A0641667、A0646.68、A064.669。

%Y等于A064421+1。

%K nonn公司

%O 1,2号机组

%A _N.J.A.Sloane，2001年10月11日