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 A090712 #32 Nov 02 2023 23:41:42
%S A090712 2,3,5,7,29,53,59,79,107,113,241,263,269,293,367,373,419,443,521,523,
%T A090712 547,601,607,631,677,757,761,787,937,971,1021,1069,1093,1231,1249,
%U A090712 1277,1307,1361,1381,1433,1459,1543,1567,1613,1619,2213,2237,2239,2447,2477
%N A090712 Primes whose base-13 expansion is a (valid) decimal expansion of a prime.
%C A090712 See A235110 for a similar sequence whose definition works "in the opposite direction": Actually, the base-13 representation of the terms here. - _M. F. Hasler_, Jan 03 2014
%H A090712 Robert Price, <a href="/A090712/b090712.txt">Table of n, a(n) for n = 1..14473</a>
%e A090712 The prime p = 53 is written 41 in base 13, and 41 is again (the base 10 representation of) a prime. Therefore p = 53 is a term of this sequence. [Rephrased by _M. F. Hasler_, Jan 03 2014]
%t A090712 f[n_]:=Module[{c13=FromDigits[IntegerDigits[n],13]},If[PrimeQ[c13], c13,0]]; Select[f/@Prime[Range[500]],#!=0&] (* _Harvey P. Dale_, Jun 20 2011 *)
%o A090712 (PARI) is_A090712(p)=vecmax(d=digits(p,13))<10&&isprime(vector(#d,i,10^(#d-i))*d~)&&isprime(p) \\ _M. F. Hasler_, Jan 05 2014
%Y A090712 Cf. A090707 - A091924.
%K A090712 base,nonn
%O A090712 1,1
%A A090712 _Cino Hilliard_, Jan 18 2004
%E A090712 Edited by _N. J. A. Sloane_, Feb 07 2007, and by _M. F. Hasler_, Jan 05 2014