Sum[(1+Floor[Ln[n]/Ln[10]]), {n, 1, 1024}]