%I #8 Oct 02 2013 15:47:23
%S 27,729,19683,474552,7077888,7414875,8489664,62099136,112678587,
%T 236029032,246491883,257259456,279726264,345948408,463684824,
%U 567663552,638277381,721734273,766060875,988047936,1177583616,1412467848,2131746903,2493326016,2714704875
%N Smith cubic numbers.
%H Donovan Johnson, <a href="/A098838/b098838.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 27 because 27 is a Smith number as well as a cube.
%t d[n_]:=IntegerDigits[n]; tr[n_]:=Transpose[FactorInteger[n]]; t={}; Do[If[!PrimeQ[n]&&Total[d[n]]==Total[d@tr[n][[1]]*tr[n][[2]],2],AppendTo[t,n]],{n,Range[2,1400]^3}]; t (* _Jayanta Basu_, Jun 04 2013 *)
%Y Cf. A006753.
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Oct 10 2004
|