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
Keywords
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
Programs
-
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 *) -
PARI
A064301(n) = valuation(A064413(n),2); \\ Needs also code from A064413. - Antti Karttunen, May 18 2018
Extensions
More terms from Vladeta Jovovic, Oct 21 2001
An alternative description added to name by Antti Karttunen, May 18 2018
Comments