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 A235110 #14 Sep 01 2015 14:12:33
%S A235110 2,3,5,7,23,41,47,61,83,89,157,173,179,197,223,229,263,281,311,313,
%T A235110 331,373,379,397,401,463,467,487,571,599,607,643,661,739,751,773,797,
%U A235110 809,823,863,883,919,937,971,977
%N A235110 Primes whose base-10 representation also represents a prime in base 13.
%C A235110 See A090712 for a similar sequence whose definition works "in the opposite direction".
%H A235110 Zak Seidov, <a href="/A235110/b235110.txt">Table of n, a(n) for n = 1..10000</a>
%e A235110 The decimal representation of prime 23, considered as a number written in base 13, stands for 2*13+3 = 29, which is also prime, therefore 23 is in the sequence.
%t A235110 Select[Prime[Range[5000]],PrimeQ[FromDigits[IntegerDigits[#],13]]&] (* _Zak Seidov_, Aug 31 2015 *)
%o A235110 (PARI) is_A235110(p, b=13)={my(d=digits(p)); isprime(vector(#d, i, b^(#d-i))*d~)&&isprime(p)}
%Y A235110 Cf. A235110, A235144 and other sequences in the range A090707 - A091924.
%K A235110 nonn,base
%O A235110 1,1
%A A235110 _M. F. Hasler_, Jan 03 2014