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 A308735 #40 Jul 22 2021 02:08:42 %S A308735 2523,2525,3175,22021,25529,28223,40325,53573,58923,73447,122571, %T A308735 132021,149675,152339,165175,172917,202221,209673,235825,267773, %U A308735 268223,308671,322223,371075,425723,430171,445923,488975,575973,591575 %N A308735 Numbers k such that k, k+2, k+4 are of the form p^2*q where p and q are distinct primes. %C A308735 All terms are odd. See comment in A308736. - _Chai Wah Wu_, Jun 24 2019 %H A308735 Ray Chandler, <a href="/A308735/b308735.txt">Table of n, a(n) for n = 1..10000</a> %e A308735 3175 = 5 * 5 * 127, %e A308735 3177 = 3 * 3 * 353, %e A308735 3179 = 11 * 17 * 17. %t A308735 psx = Table[{0}, {5}]; nmax = 600000; n = 1; lst = {}; %t A308735 While[n < nmax, n++; %t A308735 psx = RotateRight[psx]; %t A308735 psx[[1]] = Sort[Last /@ FactorInteger[n]]; %t A308735 If[Union[{psx[[1]], psx[[3]], psx[[5]]}] == {{1, 2}}, %t A308735 AppendTo[lst, n - 4]];]; %t A308735 lst %Y A308735 Cf. A074173, A308736. %K A308735 nonn %O A308735 1,1 %A A308735 _Ray Chandler_, Jun 24 2019