login
Numbers n such that sum of cubes of digits of n equals the sum of prime divisors of n.
1

%I #4 Oct 06 2012 15:11:08

%S 142,402,5505,6127,7305,12643,13550,21033,21452,22244,22290,22532,

%T 24030,24936,25612,28132,32040,35125,35296,43053,47835,51404,51703,

%U 52324,55869,66003,69060,80125,82464,86833,101061,102240,103039,104647,110334,110616,111153

%N Numbers n such that sum of cubes of digits of n equals the sum of prime divisors of n.

%C n such that A055012 (n) = A008472(n).

%e 402 = 2*3*67 is in the sequence because 4^3 + 0^3 + 2^3 = 2 + 3 + 67 = 72.

%t Rest[Select[Range[20000], Total[Transpose[FactorInteger[#]][[1]]]==Total[IntegerDigits[#]^3]&]]

%Y Cf. A055012, A008472, A217390.

%K nonn,easy,base

%O 1,1

%A _Michel Lagneau_, Oct 05 2012