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 A076747 #9 Sep 08 2022 08:45:07 %S A076747 3,13,13,23,43,53,73,83,103,113,163,173,223,233,283,293,373,383,433, %T A076747 443,643,653,673,683,733,743,853,863,1093,1103,1153,1163,1213,1223, %U A076747 1423,1433,1483,1493,1543,1553,1723,1733,1993,2003,2053,2063,2143,2153 %N A076747 List giving pairs of primes of the form 10k+3 and 10k+13. %C A076747 Except for 3,13, each pair is 30k+13 and 30k+23. %H A076747 Vincenzo Librandi, <a href="/A076747/b076747.txt">Table of n, a(n) for n = 1..1000</a> %e A076747 163 and 173 are in the sequence because both are prime; 193 and 203 aren't because not both are primes. %t A076747 Flatten[Select[Table[10 n + {3, 13}, {n, 0, 300}], And@@PrimeQ[#] &]] (* _Vincenzo Librandi_, Jun 08 2016 *) %o A076747 (PARI) forstep(x=3,2200,10, if(isprime(x) && isprime(x+10), print1(x" "x+10" "))) %o A076747 (Magma) &cat[[10*k+3, 10*k+13]: k in [0..250]| IsPrime(10*k+3) and IsPrime(10*k+13)]; // _Vincenzo Librandi_, Jun 08 2016 %Y A076747 Cf. A076746. %K A076747 nonn %O A076747 1,1 %A A076747 _Cino Hilliard_, Nov 12 2002 %E A076747 Edited by _Don Reble_, Jun 08 2003