A022921-code

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

[ logint(3^(n+1),2) - logint(3^n,2) |n<-[0..98]]

is half as fast as

my(n0=logint(3^0,2)); [ -n0 + n0=logint(3^(n+1),2) |n<-[0..98]]

but IMO looks ugly.

Is there a both "nice" and fast way to do similar?

-- Ruud