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 A178093 #10 Apr 30 2024 01:47:53 %S A178093 733,751,953,971,1741,1831,3271,3433,3541,3613,3851,7253,7321,7433, %T A178093 7523,7901,9013,9103,9161,9341,9521,9769,9787,9967,13711,14431,14831, %U A178093 15241,15511,15601,15731,16451,17041,18701,19421,30271,30491,30851,31081,31481,31531,32341 %N A178093 Larger of emirp pairs whose digital sums are also emirps (A178091). %H A178093 Amiram Eldar, <a href="/A178093/b178093.txt">Table of n, a(n) for n = 1..10000</a> %t A178093 emirpQ[n_] := n != IntegerReverse[n] && PrimeQ[n] && PrimeQ[IntegerReverse[n]]; q[n_] := emirpQ[DigitSum[n]] && n > IntegerReverse[n] && emirpQ[n]; Select[Range[10^5], q] (* _Amiram Eldar_, Apr 30 2024 *) %Y A178093 Cf. A109309, A178091, A178092. %K A178093 nonn,base %O A178093 1,1 %A A178093 _Lekraj Beedassy_, May 19 2010 %E A178093 More terms from _Amiram Eldar_, Apr 30 2024