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 A104485 #11 Apr 01 2024 10:16:39
%S A104485 19,31,47,83,109,113,127,199,251,257,293,353,401,443,467,479,487,491,
%T A104485 499,503,557,571,577,647,677,743,761,787,829,863,911,937,941,947,971,
%U A104485 977,983,1109,1187,1193,1291,1327,1361,1381,1399,1459,1499,1553,1559
%N A104485 Primes p = p(k) such that prime(k) + 2 and prime(k+1) + 2 are both semiprimes.
%H A104485 Amiram Eldar, <a href="/A104485/b104485.txt">Table of n, a(n) for n = 1..10000</a>
%e A104485 19 is a term because prime(8) + 2 = 19 + 2 = 21 = 3*7 and prime(9) + 2 = 25 = 5*5.
%t A104485 fQ[n_] := Plus @@ Flatten[ Table[ #[[2]], {1}] & /@ FactorInteger[n]] == 2; Prime /@ Select[ Range[ 270], fQ[ Prime[ # ] + 2] && fQ[ Prime[ # + 1] + 2] &] (* _Robert G. Wilson v_, Apr 19 2005 *)
%t A104485 Select[Prime[Range[250]],PrimeOmega[#+2]==PrimeOmega[NextPrime[#]+2]==2&] (* _Harvey P. Dale_, Apr 01 2024 *)
%Y A104485 Cf. A063637.
%K A104485 easy,nonn
%O A104485 1,1
%A A104485 _Giovanni Teofilatto_, Apr 19 2005
%E A104485 Corrected and extended by _Robert G. Wilson v_, Apr 19 2005