candle_seq.k

l:{l x%l y} / log y(x) = log(x)/log(y)
f:{$[x=0;0;f[x-2^l[]]]}