login
A059464
Numbers which are the sum of their proper divisors containing the digit 5.
8
1506, 1518, 3012, 3036, 3156, 3174, 4506, 6312, 7512, 9012, 9174, 10518, 10524, 10536, 10554, 13506, 15006, 15018, 15102, 15126, 15144, 15156, 15186, 15192, 15306, 15516, 15906, 16518, 17106, 17124, 17142, 17148, 17718, 19506, 19518
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 *)
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Feb 03 2001
STATUS
approved