|
%I #7 May 06 2016 10:26:25
%S 336,1734,4974,5616,7734,16134,16734,16914,17034,17058,17140,17274,
%T 17364,17508,17540,23340,25692,25698,25716,25734,26916,29364,34116,
%U 35740,36534,37540,40974,41628,46974,49614,49746,49758,49974,50340
%N Numbers which are the sum of their proper divisors containing the digit 8.
%t Select[Range[60000],Total[Select[Most[Divisors[#]],DigitCount [#,10,8]>0&]]==#&] (* _Harvey P. Dale_, Mar 24 2011 *)
%Y Cf. A059461, A271448, A059462, A059463, A059464, A059465, A059466, A059468.
%K base,nonn
%O 1,1
%A _Erich Friedman_, Feb 03 2001
|
