login
This site is supported by donations to The OEIS Foundation.

 

Logo

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178092 Lesser of emirp pairs whose digital sums are also emirps (A178091). 4
157, 179, 337, 359, 1097, 1237, 1259, 1381, 1439, 1453, 1471, 1583, 1619, 1723, 3019, 3109, 3163, 3257, 3343, 3347, 3527, 7699, 7879, 9679, 10039, 10079, 10273, 10453, 10457, 10651, 10781, 10853, 11083, 11159, 11353, 11447, 11551, 11717, 11731, 11933, 12073 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..10000

MATHEMATICA

emrp[n_]:=Module[{e=FromDigits[Reverse[IntegerDigits[n]]]}, If[n!=e&&PrimeQ[ e], {n, e}, {}]]; dsemQ[m_]:=Module[ {ds=Total[IntegerDigits[m]], em}, em= FromDigits[ Reverse[IntegerDigits[ ds]]]; em!=ds&& And@@PrimeQ[{ds, em}]]; Select[Transpose[Rest[Union[Sort/@(emrp/@Prime[Range[2000]])]]][[1]], dsemQ] (* Harvey P. Dale, Sep 11 2013 *)

CROSSREFS

Cf. A109308, A178091, A178093.

Sequence in context: A180551 A096704 A178091 * A140035 A007356 A236537

Adjacent sequences:  A178089 A178090 A178091 * A178093 A178094 A178095

KEYWORD

nonn,base

AUTHOR

Lekraj Beedassy, May 19 2010

EXTENSIONS

Corrected and extended by Harvey P. Dale, Sep 11 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified August 20 13:04 EDT 2017. Contains 290835 sequences.