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