login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064426 First differences of A064413. 2

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 28 00:54 EDT 2021. Contains 346316 sequences. (Running on oeis4.)