login
A059467
Numbers which are the sum of their proper divisors containing the digit 8.
8
336, 1734, 4974, 5616, 7734, 16134, 16734, 16914, 17034, 17058, 17140, 17274, 17364, 17508, 17540, 23340, 25692, 25698, 25716, 25734, 26916, 29364, 34116, 35740, 36534, 37540, 40974, 41628, 46974, 49614, 49746, 49758, 49974, 50340
OFFSET
1,1
MATHEMATICA
Select[Range[60000], Total[Select[Most[Divisors[#]], DigitCount [#, 10, 8]>0&]]==#&] (* Harvey P. Dale, Mar 24 2011 *)
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Feb 03 2001
STATUS
approved