cp's OEIS Frontend

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.

A178091 Emirps whose digital sums are also emirps.

This page as a plain text file.
%I A178091 #15 Apr 30 2024 01:47:50
%S A178091 157,179,337,359,733,751,953,971,1097,1237,1259,1381,1439,1453,1471,
%T A178091 1583,1619,1723,1741,1831,3019,3109,3163,3257,3271,3343,3347,3433,
%U A178091 3527,3541,3613,3851,7253,7321,7433,7523,7699,7879,7901,9013,9103,9161,9341,9521,9679,9769,9787,9967
%N A178091 Emirps whose digital sums are also emirps.
%C A178091 Palindromic primes are not allowed, nor are palindromic digital sums of primes. - _Harvey P. Dale_, Feb 23 2014
%H A178091 Amiram Eldar, <a href="/A178091/b178091.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%H A178091 Silva, Prime Curios, <a href="https://t5k.org/curios/cpage/17498.html">Entry 157</a>.
%t A178091 dseQ[n_]:=Module[{idn=IntegerDigits[n],ds},ds=IntegerDigits[Total[idn]];idn!=Reverse[idn]&&ds!=Reverse[ds] && And@@PrimeQ[{FromDigits[ Reverse[ idn]],FromDigits[ds],FromDigits[Reverse[ds]]}]]; Select[Prime[Range[ 1300]],dseQ] (* _Harvey P. Dale_, Feb 23 2014 *)
%Y A178091 Cf. A006567, A178092, A178093.
%K A178091 nonn,base
%O A178091 1,1
%A A178091 _Lekraj Beedassy_, May 19 2010