login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098838 Smith cubic numbers. 1

%I #8 Oct 02 2013 15:47:23

%S 27,729,19683,474552,7077888,7414875,8489664,62099136,112678587,

%T 236029032,246491883,257259456,279726264,345948408,463684824,

%U 567663552,638277381,721734273,766060875,988047936,1177583616,1412467848,2131746903,2493326016,2714704875

%N Smith cubic numbers.

%H Donovan Johnson, <a href="/A098838/b098838.txt">Table of n, a(n) for n = 1..10000</a>

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

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

%Y Cf. A006753.

%K base,nonn

%O 1,1

%A _Shyam Sunder Gupta_, Oct 10 2004

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 15 14:58 EDT 2024. Contains 371692 sequences. (Running on oeis4.)