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 A181604 #8 Feb 14 2017 10:36:49 %S A181604 3,13,43,73,103,193,283,313,433,463,523,643,823,883,1033,1063,1093, %T A181604 1153,1303,1453,1483,1723,1873,1933,2083,2113,2143,2383,2593,2713, %U A181604 2803,3253,3373,3463,3583,3673,3823,3853,4003,4093,4243,4273,4423,4483,4723,4933 %N A181604 Twin primes ending in 3. %H A181604 Omar E. Pol, <a href="http://www.polprimos.com">Determinacion geometrica de los numeros primos y perfectos</a> %p A181604 isA181604 := proc(p) %p A181604 if isprime(p) and (isprime(p-2) or isprime(p+2)) then %p A181604 if modp(p,10) = 3 then %p A181604 true; %p A181604 else %p A181604 false; %p A181604 end if ; %p A181604 else %p A181604 false; %p A181604 end if; %p A181604 end proc: # _R. J. Mathar_, Feb 14 2017 %t A181604 Select[Prime@Range@700, Mod[ #, 10] == 3 && (PrimeQ[ # - 2] || PrimeQ[ # + 2]) &] (* _Robert G. Wilson v_, Nov 06 2010 *) %Y A181604 Cf. A001097, A181603, A181605, A181606. %K A181604 base,nonn %O A181604 1,1 %A A181604 _Omar E. Pol_, Nov 01 2010 %E A181604 More terms from _Robert G. Wilson v_, Nov 06 2010