A335787 Emirps containing only the digits 1 and 3.

13, 31, 113, 311, 113131, 131311, 1131131, 1133131, 1133333, 1311311, 1313311, 1331333, 1333313, 3111313, 3131113, 3133331, 3331331, 3333311, 11113111, 11131111, 11311133, 11313311, 11331311, 11333131, 13131133, 13133311, 31111313, 31311113, 33111311, 33113131

Offset: 1

Author

Daniel Starodubtsev, Jun 23 2020

Keywords

• nonn
• base

Links

• Daniel Starodubtsev, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A006567 and A032917.

Subsequence of A020451.

Programs

Mathematica

Select[Flatten[Table[FromDigits[#, 10] & /@ Tuples[{1, 3}, n], {n, 8}]], # != (r = IntegerReverse[#]) && PrimeQ[#] && PrimeQ[r] &] (* Amiram Eldar, Jun 23 2020 after Vincenzo Librandi at A032917 *)