6*sum[ (10^a-10^(a-1)*Boole[a>1])*(10^b-10^(b-1))*(10^(6-a-b)-10^(6-a-b-1)*Boole[(6-a-b)>1]) ,{a,1,6-2},{b,a+1,6-1}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.