sum of digits of n^3 is 8: more terms?
zak seidov
zakseidov at yahoo.com
Mon Feb 11 09:09:08 CET 2008
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
More information about the SeqFan
mailing list