A064654 Length of n-th run of evens or odds in A064413.
1, 3, 2, 3, 2, 2, 2, 4, 3, 1, 2, 2, 2, 3, 2, 2, 3, 3, 2, 5, 2, 1, 2, 2, 2, 2, 2, 4, 3, 4, 3, 1, 1, 2, 2, 1, 2, 3, 2, 2, 1, 2, 2, 2, 2, 5, 3, 1, 2, 2, 2, 1, 2, 4, 2, 2, 3, 3, 2, 2, 3, 1, 2, 4, 1, 2, 3, 1, 2, 3, 3, 4, 2, 2, 3, 5, 1, 2, 2, 1, 1, 3, 3, 1, 2, 2, 2, 4, 2, 2, 5, 1, 1, 2, 3, 1, 1, 5, 2, 4, 1, 3, 3, 3, 1, 1
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- 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
Programs
-
Haskell
import Data.List (group) a064654 n = a064654_list !! (n-1) a064654_list = map length $ group a195376_list -- Reinhard Zumkeller, Sep 17 2001
Extensions
More terms from Matthew Conroy, Oct 16 2001
Comments