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 A075657 #13 Sep 08 2022 08:45:07 %S A075657 2,3,5,7,10,42,70,84,91,100,104,110,114,115,130,143,148,154,160,170, %T A075657 182,185,212,215,221,222,228,230,234,238,250,266,295,304,312,326,336, %U A075657 372,402,412,425,437,460,468,485,494,516,555,558,583,700,702,721,730 %N A075657 Numbers n such that sum of digits (A007953) is a divisor of sum of prime divisors (A008472). %H A075657 Harvey P. Dale, <a href="/A075657/b075657.txt">Table of n, a(n) for n = 1..1000</a> %e A075657 digsum(10) = 1 + 0 = 1, PrimeDivisors(10) = PrimeDivisors(2 *5) = {2,5} and sopf(10) = 2 + 5 = 7 = 7*1. %e A075657 digsum(154) = 1 + 5 + 4 = 10, PrimeDivisors(154) = PrimeDivisors(2 * 7 * 11) = {2,7,11} and sopf(154) = 2+7+11 = 20 = 2*10. %t A075657 Select[Range[2,800],Divisible[Total[Select[Divisors[#],PrimeQ]], Total[ IntegerDigits[#]]]&] (* _Harvey P. Dale_, Sep 23 2012 *) %o A075657 (Magma) [m:m in [2..730]| &+PrimeDivisors(m) mod &+Intseq(m) eq 0]; // _Marius A. Burtea_, Jul 11 2019 %K A075657 nonn,base %O A075657 1,1 %A A075657 _Floor van Lamoen_, Sep 23 2002 and Sep 30 2002