OFFSET
0,3
COMMENTS
LINKS
EXAMPLE
. n n-th row binary row length
. -- --------------------- ------------------------------- ----------
. 0 {0} {0} 1
. 1 {1} {1} 1
. 2 {2} {10} 1
. 3 {3} {11} 1
. 4 {4} {100} 1
. 5 {5,6} {101,110} 2
. 6 {5,6} {101,110} 2
. 7 {7} {111} 1
. 8 {8} {1000} 1
. 9 {9,10,12} {1001,1010,1100} 3
. 10 {9,10,12} {1001,1010,1100} 3
. 11 {11,13,14} {1011,1101,1110} 3
. 12 {9,10,12} {1001,1010,1100} 3
. 13 {11,13,14} {1011,1101,1110} 3
. 14 {11,13,14} {1011,1101,1110} 3
. 15 {15} {1111} 1
. 16 {16} {10000} 1
. 17 {17,18,20,24} {10001,10010,10100,11000} 4
. 18 {17,18,20,24} {10001,10010,10100,11000} 4
. 19 {19,21,22,25,26,28} {10011,10101,10110,11001,11010,11100} 6
. 20 {17,18,20,24} {10001,10010,10100,11000} 4 .
PROG
(Haskell)
import List (find)
import Maybe (fromJust)
a187786 n k = a187786_tabf !! n !! k
a187786_row n = fromJust $ find (elem n) a187769_tabf
a187786_tabf = map a187786_row [0..]
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Jan 06 2013
STATUS
approved