Plot[{n Ceiling[Log_10[1 + 3^n]], n Ceiling[n/2]}, {n, 0, 25}]