|
|
A098839
|
|
Smith square numbers.
|
|
1
|
|
|
4, 121, 576, 729, 6084, 10201, 17424, 18496, 36481, 51529, 100489, 124609, 184041, 195364, 410881, 559504, 674041, 695556, 732736, 887364, 896809, 966289, 988036, 1038361, 1190281, 1238769, 1726596, 1852321, 2166784, 2975625, 3407716, 3613801, 3663396
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(2) = 121 because 121 is a Smith number as well as a square.
|
|
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, 1950]^2}]; t (* Jayanta Basu, Jun 04 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|