sum of digits of n^3 is 8: more terms?

[zak seidov]

I'm so sorry to bother 
those of you not concerned...
zak

%I A000001
%S A000001 2,5,8,11,101,1001,10001,100001
%N A000001 Numbers n such that sum of digits of n^3 is
8. Multiples of 10 are omitted.
%C A000001 All numbers of form 10..01 are eligible.
Are there larger terms of other forms?
%e A000001 2^3=8, 5^3=125, 8^3=512, 11^3=1331
101^3=1010301, 1001^3=1003003001,
10001^3=1000300030001.
%t A000001
Do[If[Total[IntegerDigits[m^3]]==8&&Mod[m,10]>0,Print[m]],{m,100000}]
%O A000001 1
%K A000001 ,nonn,
%A A000001 Zak Seidov (zakseido(AT)yahoo.com), Feb 11 2008


      ____________________________________________________________________________________
Never miss a thing.  Make Yahoo your home page. 
http://www.yahoo.com/r/hs