|
%I #14 Sep 10 2018 10:12:26
%S 1,2,2,-3,6,3,-4,2,-5,10,3,-4,-7,14,3,-8,4,2,-11,22,-6,3,-5,10,-7,-2,
%T -13,26,-3,-4,2,-17,34,-9,-4,-19,38,-12,-5,4,2,-23,46,-21,2,2,2,2,-7,
%U 14,-3,-5,10,5,-12,-29,58,-21,-4,-31,62,-21,-8,4,6,-37,74,-36,3,-2,4,2,-41,82,-42,3,-7,11,-2,-43
%N First differences of A064413.
%H Reinhard Zumkeller, <a href="/A064426/b064426.txt">Table of n, a(n) for n = 1..10000</a>
%H J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="http://arXiv.org/abs/math.NT/0204011">The EKG sequence</a>, Exper. Math. 11 (2002), 437-446.
%H <a href="/index/Ed#EKG">Index entries for sequences related to EKG sequence</a>
%t ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]]; Nest[ekg, {1, 2}, 100] // Differences (* _Jean-François Alcover_, Sep 10 2018, after _Robert G. Wilson v_ *)
%o (Haskell)
%o a064426 n = a064426_list !! (n-1)
%o a064426_list = zipWith (-) (tail a064413_list) a064413_list
%o -- _Reinhard Zumkeller_, Sep 17 2001
%K sign
%O 1,2
%A _N. J. A. Sloane_, Oct 02 2001
|
