%I
%S 2,5,8,11,101,1001,10001,100001,1000001,10000001,100000001,1000000001,
%T 10000000001,100000000001,1000000000001,10000000000001,
%U 100000000000001,1000000000000001,10000000000000001,100000000000000001,1000000000000000001,10000000000000000001
%N Numbers n such that sum of digits of n^3 is 8. Multiples of 10 are omitted.
%C All numbers of form 10..01 are eligible. Are there larger terms of other forms?
%C All terms up to 10^20 are of this form, except for 2, 5 and 8.  Max Alekseyev, Feb 11 2008
%C Numbers n such that n>1 and sum of digits of n^3 is less than 9. Multiples of 10 are omitted. [_Farideh Firoozbakht_, Oct 18 2013]
%e 2^3=8, 5^3=125, 8^3=512, 11^3=1331, 101^3=1030301, 1001^3=1003003001, 10001^3=1000300030001.
%t Do[If[Total[IntegerDigits[m^3]]==8&&Mod[m,10]>0,Print[m]],{m,100000}]
%K nonn,base
%O 1,1
%A _Zak Seidov_, Feb 11 2008
%E a(9) onwards from Max Alekseyev, Feb 11 2008
