%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日