%I #4 Oct 06 2012 15:11:30
%S 22011,50124,220041,704301,1056225,1101023,1122254,1404231,2106855,
%T 2130216,2221110,2351565,3010353,3130060,3146247,3169305,3968808,
%U 4053412,4150651,4213312,4293261,4351003,4499068,5053964,5794602,6277560
%N Numbers n such that sum of 5th power of digits of n equals the sum of prime divisors of n.
%C n such that A055014 (n) = A008472(n).
%e 22011 = 3*11*23*29 is in the sequence because 2^5 + 2^5 + 0^5 + 1^5 + 1^5 = 3 + 11 + 23 + 29 = 66.
%t Rest[Select[Range[8000000], Total[Transpose[FactorInteger[#]][[1]]]==Total[IntegerDigits[#]^5]&]]
%Y Cf. A055014, A008472.
%K nonn,easy,base
%O 1,1
%A _Michel Lagneau_, Oct 05 2012