%I#9 2019年2月13日08:02:39
%S 1,3,9,5,15,7,21,11,33,27,25,35,13,39,17,51,19,57,45,23,23,69,49,49,63,55,
%电话65,29,87,31,93,37111,75,41123,81,77,43129,85,95,47141,91,99105,
%电话:53159,59177117115125,61183119133121143,67201
%N A064413的奇数子序列。
%H J.C.Lagarias、E.M.Rains和N.J.A.Sloane,<A href=“http://arXiv.org/abs/math.NT/0204011“>心电图序列,《实验数学》11(2002),437-446。
%H<a href=“/index/Ed#EKG”>与EKG序列相关的序列的索引条目</a>
%t nmax=140;
%t ekg[s_]:=块[{m=s[[-1]],k=3},While[MemberQ[s,k]||GCD[m,k]==1,k++];追加[s,k]];
%t EKG=巢[EKG,{1,2},nmax];
%t选择[EKG,OddQ](*_Jean-François Alcover_,2019年2月13日,在A064413中的_Robert G.Wilson v_之后*)
%Y参考A064413。
%K nonn公司
%O 1,2号机组
%A _N.J.A.Sloane,2001年10月5日
|