Question 1133940

53262

<br>

To see just the count:<br>
perl -e '$c=0; $s=0; for($i=1; $i<1000001; $i++) { @w = split(//,"$i"); for($j=0,$s=0;$j<$#w+1;$j++) { $s+=$w[$j]; } if ($s == 25) { $c++; } } print "count = $c\n";'
<br>

To see them all, run this:<br>
perl -e '$c=0; $s=0; for($i=1; $i<1000001; $i++) { @w = split(//,"$i"); for($j=0,$s=0;$j<$#w+1;$j++) { $s+=$w[$j]; } if ($s == 25) { $c++; print "$i\n"; } } print "count = $c\n";'
<br>