login
Numbers which are the sum of their proper divisors containing the digit 6.
9

%I #10 Apr 15 2017 09:31:26

%S 528,27340,27380,122780,130420,130564,130580,134740,147380,225932,

%T 227380,241340,243220,245380,251380,252380,252820,253180,253420,

%U 253780,259340,271340,272380,272980,273140,273380,273580,273820,279340,305380,307220,322540,322780

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

%H Hiroaki Yamanouchi, <a href="/A059465/b059465.txt">Table of n, a(n) for n = 1..1532</a>

%t spd6Q[n_]:=Total[Select[Most[Rest[Divisors[n]]],DigitCount[#,10,6]> 0&]] == n; Select[Range[330000],spd6Q]//Quiet (* _Harvey P. Dale_, Apr 15 2017 *)

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

%K base,nonn

%O 1,1

%A _Erich Friedman_, Feb 03 2001

%E a(4)-a(33) from _Hiroaki Yamanouchi_, Sep 24 2014