Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A064654
Length of n-th run of evens or odds in A064413.
3
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,2
COMMENTS
Also gives lengths of runs of zeros and ones in A195376.
LINKS
J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.
PROG
(Haskell)
import Data.List (group)
a064654 n = a064654_list !! (n-1)
a064654_list = map length $ group a195376_list
-- Reinhard Zumkeller, Sep 17 2001
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Oct 09 2001
EXTENSIONS
More terms from Matthew Conroy, Oct 16 2001
STATUS
approved