max <- 19

j = 1

L <- 0

while (j <= max) {

    k <- 1
    while ( (k <= 2^L) && (j <= max) ) {
        
        cat(L,j,'\n')
        j <- j + 1

        k <- k + 1
        
    }
    
    L <- L + 1
    
}