OFFSET
1,1
MATHEMATICA
Select[Range[60000], Total[Select[Most[Divisors[#]], DigitCount [#, 10, 8]>0&]]==#&] (* Harvey P. Dale, Mar 24 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Feb 03 2001
STATUS
approved