|
|
A098838
|
|
Smith cubic numbers.
|
|
1
|
|
|
27, 729, 19683, 474552, 7077888, 7414875, 8489664, 62099136, 112678587, 236029032, 246491883, 257259456, 279726264, 345948408, 463684824, 567663552, 638277381, 721734273, 766060875, 988047936, 1177583616, 1412467848, 2131746903, 2493326016, 2714704875
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|