A064301 Rightmost column of A064744; 2-adic valuation of the EKG-sequence.

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

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.

Index entries for sequences related to EKG sequence

Index entries for sequences related to Recamán's sequence

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 A363916

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