%I #23 May 14 2023 06:57:07
%S 15015,45045,51051,62985,72930,74613,75075,105105,106590,135135,
%T 145860,153153,156009,165165,187473,188955,190190,195195,213180,
%U 218790,222870,223839,225225,279565,291720,314925,315315,319770,335478,357357,364650,375375,380380
%N Numbers k such that the sum of the distinct prime divisors of k equals three times the largest prime divisor of k.
%H Amiram Eldar, <a href="/A200090/b200090.txt">Table of n, a(n) for n = 1..10000</a>
%e 15015 is a term because its distinct prime divisors are 3, 5, 7, 11, 13 and their sum 3 + 5 + 7 + 11 + 13 = 39 equals 3*13.
%t Select[Range[400000],Plus@@(pl=First/@FactorInteger[#])==3*pl[[-1]]&]
%Y Cf. A006530 (gpf), A008472 (sopf), A200070.
%K nonn
%O 1,1
%A _Michel Lagneau_, Nov 13 2011