f[n_] := Log[1/2]/Log[(6^n -1)/6^n]


Do[Print[n," ",N[f[n]/(6^n)],200],{n,1,50}]


g[x_] := Log[1/2]/(x Log[(x-1)/x])