Table[5/11 (45^(Length[IntegerDigits[2 n]] - 1) - 1) + 
  Sum[(Product[
      IntegerDigits[2 n][[j]], {j, 1, 
       Length[IntegerDigits[2 n]] - k - 1}])*(2*(5^
        k)*(9^(k - 1))*(IntegerDigits[
         2 n][[Length[IntegerDigits[2 n]] - k]])*(IntegerDigits[
          2 n][[Length[IntegerDigits[2 n]] - k]] - 1)), {k, 1, 
    Length[IntegerDigits[2 n]] - 1}] + (Product[
     IntegerDigits[2 n][[i]], {i, 1, 
      Length[IntegerDigits[2 n]] - 
       1}]) (((IntegerDigits[2 n][[Length[IntegerDigits[2 n]]]])^2)/
      4 + (IntegerDigits[2 n][[Length[IntegerDigits[2 n]]]])/2), {n, 
  1, 10000}]