login
Numbers which are the sum of their proper divisors containing the digit 5.
8

%I #8 Jul 31 2020 15:02:53

%S 1506,1518,3012,3036,3156,3174,4506,6312,7512,9012,9174,10518,10524,

%T 10536,10554,13506,15006,15018,15102,15126,15144,15156,15186,15192,

%U 15306,15516,15906,16518,17106,17124,17142,17148,17718,19506,19518

%N Numbers which are the sum of their proper divisors containing the digit 5.

%t spd5Q[n_]:=Total[Select[Most[Rest[Divisors[n]]],DigitCount[#,10,5]>0&]] == n; Select[Range[4,20000],spd5Q] (* _Harvey P. Dale_, Jul 31 2020 *)

%Y Cf. A059461, A271448, A059462, A059463, A059465, A059466, A059467, A059468.

%K base,nonn

%O 1,1

%A _Erich Friedman_, Feb 03 2001