%I#18 2018年8月2日02:37:22

%S 1,5,6,10,11,14,15,20,21,22,24,25,28,29,33,34,37,38,39,43,44,50,51,53，

%电话54,57,58,61,62,67,68,69,74,75,76,78,81,82,84,85,89,90,93,96,97100，

%电话：101107108109111112115116118119124125128129

%N奇数项出现在A064413中。

%A064953的C补语；A195376（a（n））=1。[_Reinhard Zumkeller_，2001年9月17日]

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

%H J.C.Lagarias、E.M.Rains和N.J.A.Sloane，<A href=“https://arxiv.org/abs/math/0204011“>EKG序列，arXiv:math/0204011[math.NT]；Exper.math.11（2002），437-446。

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

%tekg[s_List]：=块[{m=s[[-1]]，k=3}，而[MemberQ[s，k]||GCD[m，k]==1，k++]；追加[s，k]]；A064413=嵌套[ekg，{1，2}，200]；

%t位置[A064413，_？OddQ]//平坦（*_Jean-François Alcover_，2018年8月2日，在_Robert G.Wilson v_*之后）

%o（哈斯克尔）

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

%o a064957 n=a064957_列表！！（n-1）

%o a064957_list=map（+1）$findIndices奇数a064413_list

%o--_Reinhard Zumkeller_，2001年9月17日

%Y参见A064413、A064473。

%Y参考A064955。

%K nonn公司

%O 1,2号机组

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