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 A091924 #25 Sep 08 2022 08:45:13
%S A091924 2,3,5,7,29,43,61,67,89,139,193,197,199,227,263,269,281,331,353,373,
%T A091924 379,467,571,601,607,643,733,797,809,821,827,887,919,937,1033,1039,
%U A091924 1093,1129,1231,1237,1259,1277,1303,1327,1381,1451,1453,1459,1583
%N A091924 Primes such that their decimal representations interpreted in base 11 are also prime.
%C A091924 See A090711 for a similar sequence whose definition works "in the opposite direction". - _M. F. Hasler_, Jan 03 2014
%H A091924 Robert Israel, <a href="/A091924/b091924.txt">Table of n, a(n) for n = 1..10000</a>
%F A091924 A090862(A049084(a(n))) > 11 for n>4.
%e A091924 A000040(10)=29 in base 11 is 2*11^1+9*11^0=31 prime, therefore 29 is a term.
%p A091924 filter:= proc(n) local L;
%p A091924 if not isprime(n) then return false fi;
%p A091924 L:= convert(n,base,10);
%p A091924 isprime(add(L[i]*11^(i-1),i=1..nops(L)))
%p A091924 end proc:
%p A091924 select(filter, [2, seq(i,i=3..10000,2)]); # _Robert Israel_, Jan 28 2018
%t A091924 Select[Prime@ Range@ 250, PrimeQ@ FromDigits[IntegerDigits@ #, 11] &] (* _Michael De Vlieger_, Aug 29 2015 *)
%o A091924 (PARI) is(p,b=11)={my(d=digits(p));isprime(vector(#d,i,b^(#d-i))*d~)&&isprime(p)} \\ _M. F. Hasler_, Jan 03 2014
%o A091924 (Magma) [n:n in PrimesUpTo(1600)| IsPrime(Seqint(Intseq(n),11))]; // _Marius A. Burtea_, Jun 30 2019
%Y A091924 Cf. A091923.
%K A091924 nonn,base
%O A091924 1,1
%A A091924 _Reinhard Zumkeller_, Feb 13 2004
%E A091924 Corrected by _Zak Seidov_, Feb 25 2004