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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A065519 a(n) = A064413(n)-n. 2

%I

%S 0,0,1,2,-2,3,5,0,1,-5,4,6,1,-7,6,8,-1,2,3,-9,12,5,7,1,10,2,-1,-15,10,

%T 6,1,2,-16,17,7,2,-18,19,6,0,3,4,-20,25,3,4,5,6,7,-1,12,8,2,11,15,2,

%U -28,29,7,2,-30,31,9,0,3,8,-30,43,6,8,5,8,9

%N a(n) = A064413(n)-n.

%C Zeros appear at A152458.

%H Peter Kagey, <a href="/A065519/b065519.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>, arXiv:math/0204011 [math.NT], 2002.

%H J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="http://www.emis.de/journals/EM/expmath/volumes/11/11.3/Lagarias437_446.pdf">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 terms = 100;

%t ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];

%t Nest[ekg, {1, 2}, terms-2] - Range[terms] (* _Jean-François Alcover_, Sep 10 2018, after _Robert G. Wilson v_ *)

%Y Cf. A064413, A152458.

%K sign

%O 1,4

%A _N. J. A. Sloane_, Nov 28 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.

Last modified January 25 03:49 EST 2020. Contains 331241 sequences. (Running on oeis4.)