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 A074173 #12 Jun 24 2019 13:17:40
%S A074173 18,50,242,423,475,603,637,722,845,925,1682,1773,2007,2523,2525,2527,
%T A074173 3175,3177,4203,4475,4525,4923,5823,6725,6811,6962,7299,7442,7675,
%U A074173 8425,8957,8973,9457,9925,10051,10082,10467,11673,11709,12427,12482,12591
%N A074173 Numbers n such that n and n+2 are of the form p^2*q where p and q are distinct primes.
%H A074173 Ray Chandler, <a href="/A074173/b074173.txt">Table of n, a(n) for n = 1..10000</a>
%H A074173 <a href="/index/Pri#prime_signature">Index to sequences related to prime signature</a>
%F A074173 Even terms in sequence are 2*A048161(n)^2. - _Ray Chandler_, Jun 24 2019
%e A074173 18 is a member as 18 = 3^2*2 and 20 = 2^2*5.
%t A074173 lst={}; Do[f1=FactorInteger[n]; If[Sort[Transpose[f1][[2]]]=={1, 2}, f2=FactorInteger[n+2]; If[Sort[Transpose[f2][[2]]]=={1, 2}, AppendTo[lst, n]]], {n, 3, 10000}]; lst
%Y A074173 Cf. A048161, A054753, A074172, A074174, A308735, A308736.
%K A074173 nonn
%O A074173 1,1
%A A074173 _Amarnath Murthy_, Aug 30 2002
%E A074173 More terms from _T. D. Noe_, Oct 04 2004