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 A252090 #25 Sep 08 2022 08:46:10
%S A252090 3,13,19,31,43,61,73,79,103,109,139,151,163,199,211,223,229,241,283,
%T A252090 331,373,421,433,439,463,541,571,613,619,631,673,691,733,769,811,829,
%U A252090 853,859,883,919,991,1021,1033,1063,1069,1123,1153,1201,1231,1249
%N A252090 Primes p such that p + 28 is also prime.
%H A252090 Karl V. Keller, Jr., <a href="/A252090/b252090.txt">Table of n, a(n) for n = 1..10000</a>
%e A252090 19 is in the sequence because 19 is prime and 19 + 28 = 47 is also prime.
%e A252090 433 is in the sequence because 433 is prime and 433 + 28 = 461 is also prime.
%p A252090 P:= select(isprime, {seq(2*i+1, i=1..10000)}):
%p A252090 P intersect map(`-`,P,28);
%p A252090 # if using Maple 11 or earlier, uncomment the next line
%p A252090 # sort(convert(%,list)); # _Robert Israel_, Dec 14 2014
%t A252090 Select[Prime[Range[250]], PrimeQ[# + 28] &]
%o A252090 (Magma) [NthPrime(n): n in [1..250] | IsPrime(NthPrime(n)+28)];
%o A252090 (PARI) is(n)=isprime(n)&&isprime(n+28) \\ _Anders Hellström_, Dec 01 2015
%K A252090 nonn,easy
%O A252090 1,1
%A A252090 _Vincenzo Librandi_, Dec 14 2014