This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A086486 #19 Aug 28 2025 06:33:15
%S A086486 2,3,4,5,7,8,9,11,13,16,17,19,23,25,27,29,30,31,32,37,41,43,47,49,53,
%T A086486 59,60,61,64,67,70,71,73,79,81,83,89,90,97,101,103,105,107,109,113,
%U A086486 120,121,125,127,128,131,137,139,140,149,150,151,157,163,167
%N A086486 Numbers k such that the sum of the distinct prime divisors divides rad(k)=A007947(k).
%C A086486 Every prime power is a member.
%C A086486 Numbers with exactly two distinct prime divisors are not members of the sequence. - Victoria A Sapko (vsapko(AT)canes.gsw.edu), Sep 23 2003
%C A086486 Numbers k such that A008472(k) divides A007947(k).
%H A086486 Harvey P. Dale, <a href="/A086486/b086486.txt">Table of n, a(n) for n = 1..1000</a>
%e A086486 30 is a member. The prime divisors of 30 are 2, 3 and 5 and 2+3+5 = 10, divides 30.
%e A086486 84, however, is not a member because the sum of its distinct prime divisors (2+3+7=12) does not divide the product of its distinct prime divisors (2*3*7=42), even though 12 does divide 84. - _Harvey P. Dale_, Nov 26 2011, based on a comment from _Ray Chandler_
%t A086486 sdpQ[n_]:=Module[{dpds=Transpose[FactorInteger[n]][[1]]}, Divisible[ Times@@dpds,Total[dpds]]]; Select[Range[2,200],sdpQ] (* _Harvey P. Dale_, Nov 26 2011 *)
%Y A086486 Cf. A086487, A066031. A proper subset of A089352.
%K A086486 nonn,changed
%O A086486 1,1
%A A086486 _Amarnath Murthy_, Jul 28 2003
%E A086486 More terms from Victoria A Sapko (vsapko(AT)canes.gsw.edu), Sep 23 2003
%E A086486 Edited by _Franz Vrabec_, Sep 03 2005