A264784 Run lengths of zeros in A265158.
1, 2, 5, 10, 1, 21, 2, 42, 1, 1, 5, 1, 85, 2, 2, 10, 2, 170, 1, 1, 1, 5, 1, 1, 5, 1, 21, 1, 1, 5, 1, 341, 2, 2, 2, 10, 2, 2, 10, 2, 42, 2, 2, 10, 2, 682, 1, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 5, 1, 21, 1, 1, 1, 5, 1, 1, 5, 1, 21, 1, 1, 5, 1, 85, 1, 1, 1, 5, 1, 1
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
import Data.List (group) a264784 n = a264784_list !! (n-1) a264784_list = map length $ filter ((== 0) . head) $ group a265158_list
Comments