|
%I #6 Jan 20 2024 15:15:54
%S 210,1210,2100,12100,21000,21021,36522,63141,89195,92029,112132,
%T 116010,118461,121000,149851,203013,203202,210000,214456,303142,
%U 304341,313230,323723,331401,351760,416213,441532,524371,534656,574915,610171,654560,897648,999643
%N Numbers k such that sum of 4th power of digits of k equals the sum of prime divisors of k.
%C Numbers k such that A055013(k) = A008472(k).
%e 210 = 2*3*5*7 is in the sequence because 2^4 + 1^4 + 0^4 = 2 + 3 + 5 + 7 = 17.
%t Rest[Select[Range[1000000], Total[Transpose[FactorInteger[#]][[1]]]==Total[IntegerDigits[#]^4]&]]
%Y Cf. A055013, A008472.
%K nonn,easy,base
%O 1,1
%A _Michel Lagneau_, Oct 05 2012
|
