This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A064301 Rightmost column of A064744; 2-adic valuation of the EKG-sequence. 5
 0, 1, 2, 1, 0, 0, 2, 3, 1, 0, 0, 1, 1, 0, 0, 3, 4, 2, 1, 0, 0, 0, 1, 0, 0, 2, 1, 0, 0, 2, 5, 1, 0, 0, 1, 1, 0, 0, 0, 3, 2, 1, 0, 0, 4, 1, 2, 1, 3, 0, 0, 2, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 3, 6, 2, 1, 0, 0, 0, 1, 2, 4, 1, 0, 0, 0, 2, 0, 3, 1, 0, 0, 1, 0, 0, 2, 2, 1, 0, 0, 5, 1, 0, 3, 1, 0, 0, 2, 1, 0, 0, 1, 1, 4, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Exponent of highest power of 2 dividing A064413(n). LINKS Antti Karttunen, Table of n, a(n) for n = 1..65539 J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, arXiv:math/0204011 [math.NT], 2002. J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446. MATHEMATICA IntegerExponent[#, 2] & /@ Nest[Append[#, Block[{k = 3}, While[Or[MemberQ[#, k], GCD[#[[-1]], k] == 1], k++]; k]] &, {1, 2}, 105] (* Michael De Vlieger, May 22 2018 *) PROG (PARI) A064301(n) = valuation(A064413(n), 2); \\ Needs also code from A064413. - Antti Karttunen, May 18 2018 CROSSREFS Cf. A064413, A064741, A064744, A304735, A304737. Sequence in context: A168315 A120730 A122851 * A199881 A060701 A275345 Adjacent sequences:  A064298 A064299 A064300 * A064302 A064303 A064304 KEYWORD nonn AUTHOR N. J. A. Sloane, Oct 20 2001 EXTENSIONS More terms from Vladeta Jovovic, Oct 21 2001 An alternative description added to name by Antti Karttunen, May 18 2018 STATUS approved

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 October 14 07:31 EDT 2019. Contains 327995 sequences. (Running on oeis4.)