OFFSET
1,1
MATHEMATICA
spd5Q[n_]:=Total[Select[Most[Rest[Divisors[n]]], DigitCount[#, 10, 5]>0&]] == n; Select[Range[4, 20000], spd5Q] (* Harvey P. Dale, Jul 31 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Feb 03 2001
STATUS
approved