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 A263241 #21 Oct 16 2021 22:31:33
%S A263241 13,17,37,79,107,113,149,157,167,179,199,337,347,359,389,709,739,769,
%T A263241 1009,1223,1229,1559,1669,3889,7229,10007,10009,10909,11717,11719,
%U A263241 12227,12323,12829,13337,13933,14143,14447,14449,14549,14843,14947,15053,16063,16267,16567,16763
%N A263241 Lesser of emirp pairs that are merely reversals of their end digits.
%C A263241 The first digit is always smaller than last digit.
%t A263241 Select[Range[20000], And @@ PrimeQ[{#, IntegerReverse[#]}] && ! PalindromeQ[#] && First[(d = IntegerDigits[#])] < Last[d] && PalindromeQ[Most@ Rest@ IntegerDigits[#]] &] (* _Amiram Eldar_, Oct 16 2021 *)
%o A263241 (PARI) isok(p) = my(dp=digits(p), dr=Vecrev(dp), r=fromdigits(dr)); if (isprime(r) && (r>p) && isprime(p), sum(i=2, #dp-1, dp[i]==dr[i]) == #dp-2); \\ _Michel Marcus_, Oct 16 2021
%Y A263241 Cf. A006567, A109308, A263240, A263242.
%K A263241 nonn,base
%O A263241 1,1
%A A263241 _Lekraj Beedassy_, Oct 13 2015
%E A263241 Missing 179 added by _Zak Seidov_, Oct 15 2021