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 A127443 #13 Sep 08 2022 08:45:29 %S A127443 3,5,7,13,23,37,47,83,97,107,127,167,197,257,313,383,397,457,463,587, %T A127443 653,673,677,827,863,967,1013,1063,1093,1237,1567,1637,1783,1787,1847, %U A127443 1877,1913,2267,2273,2393,2633,2707,2777,2837,2927,2953,3023,3037,3257 %N A127443 Primes p such that 6p - 11 and 6p + 11 are also primes. %e A127443 7, 6*7 - 11 = 31, and 6*7 + 11 = 53 are all primes. %t A127443 Select[Range[5000], PrimeQ[ # ] && PrimeQ[6# + 11] && PrimeQ[6# - 11] &] %t A127443 Select[Prime[Range[500]],AllTrue[6#+{11,-11},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 07 2015 *) %o A127443 (Magma) [ p: p in PrimesUpTo(9000) | IsPrime(6*p-11) and IsPrime(6*p+11)] // _Vincenzo Librandi_, Jan 29 2011 %Y A127443 Subsequence of A089438. %K A127443 nonn %O A127443 1,1 %A A127443 _Zerinvary Lajos_, Mar 31 2007