OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 27 because 27 is a Smith number as well as a cube.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Oct 10 2004
STATUS
approved