A098838 Smith cubic numbers.

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

Offset: 1

Author

Shyam Sunder Gupta, Oct 10 2004

Keywords

• base
• nonn

Examples

			a(1) = 27 because 27 is a Smith number as well as a cube.
		

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,1400]^3}]; t (* Jayanta Basu, Jun 04 2013 *)