The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A178213 Smith numbers of order 3. 7
 6606, 8540, 13086, 16866, 21080, 26637, 27468, 33387, 34790, 35364, 35377, 40908, 44652, 48154, 48860, 52798, 54814, 55055, 57726, 57894, 66438, 67297, 67356, 67594, 69549, 72465, 72598, 73026, 74371, 74785, 77485, 78745, 81546, 83175, 85927, 90174, 91208 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Composite numbers n not in A176670 such that the sum of the cubes of the digits of n equals the sum of the cubes  of the digits of the prime factors of n (with multiplicity). A176670 lists composite numbers having the same digits as their prime factors (with multiplicity), excluding zero digits. LINKS Ely Golden and Donovan Johnson, Table of n, a(n) for n = 1..10000 (terms 1 to 1000 by Donovan Johnson) Eric W. Weisstein, Smith Number EXAMPLE 6606 = 2*3*3*367 is composite; sum of cubes of the digits is 6^3+6^3+0^3+6^3 = 648. Sum of cubes of the digits of the prime factors 2, 3, 3, 367 (with multiplicity) is 2^3+3^3+3^3+3^3+6^3+7^3 = 648. The sums are equal, so 6606 is in the sequence. 21080 = 2*2*2*5*17*31 is composite; sum of cubes of the digits is 2^3+1^3+0^3+8^3+0^3 = 521. Sum of cubes of the digits of the prime factors 2, 2, 2, 5, 17, 31 (with multiplicity) is 2^3+2^3+2^3+5^3+1^3+7^3+3^3+1^3 = 521. The sums are equal, so 21080 is in the sequence. MATHEMATICA fQ[n_] := Block[{id = Sort@ IntegerDigits@ n, fid = Sort@ Flatten[ IntegerDigits@ Table[ #[], {#[]}] & /@ FactorInteger@ n]}, While[ id[] == 0, id = Drop[id, 1]]; While[ fid[] == 0, fid = Drop[fid, 1]]; !PrimeQ@ n && id != fid && Plus @@ (id^3) == Plus @@ (fid^3)]; k = 2; lst = {}; While[k < 22002, If[fQ@ k, AppendTo[ lst, k]; Print@ k]; k++]; lst With[{k = 3}, Select[Range[10^5], Function[n, And[Total@ Map[#^k &, IntegerDigits@ n] == Total@ Map[#^k &, Flatten@ IntegerDigits[#]], Not[Sort@ DeleteCases[#, 0] &@ IntegerDigits@ n == Sort@ DeleteCases[#, 0] &@#]] &@ Flatten@ Map[IntegerDigits@ ConstantArray[#1, #2] & @@ # &, FactorInteger@ n]]]] (* Michael De Vlieger, Dec 10 2016 *) CROSSREFS Cf. A006753 (Smith numbers), A174460, A176670, A178193, A178203, A178204. Sequence in context: A214434 A317247 A290281 * A237320 A237726 A250539 Adjacent sequences:  A178210 A178211 A178212 * A178214 A178215 A178216 KEYWORD nonn,base AUTHOR Paul Weisenhorn, Dec 19 2010 STATUS approved

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

Last modified April 18 22:02 EDT 2021. Contains 343090 sequences. (Running on oeis4.)