A217531 Numbers n such that sum of cubes of digits of n equals the sum of prime divisors of n.
142, 402, 5505, 6127, 7305, 12643, 13550, 21033, 21452, 22244, 22290, 22532, 24030, 24936, 25612, 28132, 32040, 35125, 35296, 43053, 47835, 51404, 51703, 52324, 55869, 66003, 69060, 80125, 82464, 86833, 101061, 102240, 103039, 104647, 110334, 110616, 111153
Offset: 1
Examples
402 = 2*3*67 is in the sequence because 4^3 + 0^3 + 2^3 = 2 + 3 + 67 = 72.
Programs
-
Mathematica
Rest[Select[Range[20000], Total[Transpose[FactorInteger[#]][[1]]]==Total[IntegerDigits[#]^3]&]]
Comments