Project Euler task 56

A googol (10¹⁰⁰) is a massive number: one followed by one-hundred zeros; 100¹⁰⁰ is almost unimaginably large: one followed by two-hundred zeros. Despite their size, the sum of the digits in each number is only 1.

Considering natural numbers of the form, a^b, where a, b 100, what is the maximum digital sum?

---------------------------------------------------------

iMaxSum = 0;

For[i = 1, i < 100, i++,

For[j = 1, j < 100, j++,

iSum = 0;

sNums = Characters[ToString[i^j]];

For[n = 1, n <= Length[sNums], n++,

iSum += ToExpression[sNums[[n]]];

];

If[iMaxSum < iSum, iMaxSum = iSum];

]

]

iMaxSum