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 A370354 #98 May 06 2024 11:04:36
%S A370354 4,8,9,16,18,24,25,27,30,32,36,42,49,50,60,64,66,70,72,78,81,84,98,
%T A370354 100,102,105,110,114,120,121,125,126,128,130,132,138,140,144,150,154,
%U A370354 156,160,162,168,169,170,174,180,182,186,190,192,195,196,200,204,216,220,222,228,230,231,234,238,240
%N A370354 Composite numbers k that share a factor with sopfr(k), the sum of the primes dividing k, with repetition.
%C A370354 All prime powers, see A246547, are terms.
%H A370354 Scott R. Shannon, <a href="/A370354/b370354.txt">Table of n, a(n) for n = 1..10000</a>
%e A370354 18 is a term as 18 = 2 * 3 * 3, and soprf(18) = 2 + 3 + 3 = 8, which shares a factor with 18.
%t A370354 fn[{a_,b_}]:=a*b;Select[Range[240],CompositeQ[#]&&ContainsAny[First/@FactorInteger[#],First/@FactorInteger[ Total[fn/@FactorInteger[#]]]]&] (* _James C. McMahon_, May 06 2024 *)
%Y A370354 Cf. A001414, A002808, A027746, A246547, A046346, A372524.
%K A370354 nonn
%O A370354 1,1
%A A370354 _Scott R. Shannon_, May 06 2024