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 A139316 #15 Mar 28 2021 07:03:31
%S A139316 2,3,4,5,7,11,13,15,17,19,21,23,27,28,29,31,33,35,37,39,41,42,43,47,
%T A139316 48,51,52,53,55,57,59,61,65,67,69,71,72,73,76,77,78,79,83,84,85,87,89,
%U A139316 91,93,95,97,98,101,103,105,107,108,109,110,111,113,114,115,119,120,123
%N A139316 An integer k, k>=2, is in the sequence if A001222(k) (the sum of the exponents in the prime factorization of k) divides A008472(k) (the sum of the distinct primes dividing k).
%H A139316 Amiram Eldar, <a href="/A139316/b139316.txt">Table of n, a(n) for n = 1..10000</a>
%e A139316 28 has the prime factorization 2^2 * 7^1. The sum of the exponents, 2+1 = 3, divides the sum of the distinct prime divisors, 2+7 = 9. So 28 is in the sequence.
%t A139316 seddpQ[n_]:=Module[{fi=Transpose[FactorInteger[n]]},Divisible[Total[ fi[[1]]],Total[ fi[[2]]]]]; Select[Range[2,150],seddpQ] (* _Harvey P. Dale_, Apr 13 2015 *)
%Y A139316 Cf. A001222, A008472.
%K A139316 nonn
%O A139316 1,1
%A A139316 _Leroy Quet_, Jun 07 2008
%E A139316 More terms from _D. S. McNeil_, Mar 23 2009