log_int_rat

["Ruud H.G. van Tol" <rvtol@isolution.nl>]

? a054414(n) = 1 + n + floor( n * log(2) / log(3/2) );

? [ a054414(n) |n<-[0..20]]
% [1, 3, 6, 9, 11, 14, 17, 19, 22, 25, 28, 30, 33, 36, 38, 41, 44, 47, 
49, 52, 55]

Is there a cleaner way, similar to logint, to do that floor-expression?

-- Thanks, Ruud