Plot[{3.322n - log2[3.322n] , ProductLog[10.^n * ln(2)]/ ln(2)} , {n, 10, 10​​0}]