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 A252091 #15 Sep 08 2022 08:46:10 %S A252091 3,7,13,19,37,67,73,79,97,103,139,157,163,193,199,223,229,277,283,313, %T A252091 349,367,397,409,433,457,487,523,607,613,619,643,709,727,739,787,823, %U A252091 829,853,877,907,919,937,997,1063,1069,1117,1129,1153,1249,1327,1399,1447 %N A252091 Primes p such that p + 34 is prime. %H A252091 Karl V. Keller, Jr., <a href="/A252091/b252091.txt">Table of n, a(n) for n = 1..10000</a> %e A252091 19 is in this sequence because 19+34 = 53 is prime. %e A252091 433 is in this sequence because 433+34 = 467 is prime. %t A252091 Select[Prime[Range[300]], PrimeQ[# + 34] &] %o A252091 (Magma) [NthPrime(n): n in [1..300] | IsPrime(NthPrime(n)+34)]; %o A252091 (PARI) lista(nn) = {forprime(p=2, nn, if (isprime(p+34), print1(p, ", ")););} \\ _Michel Marcus_, Dec 15 2014 %K A252091 nonn,easy %O A252091 1,1 %A A252091 _Vincenzo Librandi_, Dec 15 2014