A098839 Smith square numbers.

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

Offset: 1

Author

Shyam Sunder Gupta, Oct 10 2004

Keywords

• base
• nonn

Examples

			a(2) = 121 because 121 is a Smith number as well as a square.
		

Links

• Donovan Johnson, Table of n, a(n) for n = 1..10000
• Shyam Sunder Gupta, Smith Numbers, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 4, 127-157.

Crossrefs

Cf. A006753.

Programs

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 *)