A167483 Primes prime(n) such that n and prime(n) have only prime digits.

3, 5, 257, 2237, 2377, 2557, 5557, 33353, 33377, 73237, 252233, 252253, 253573, 3533377, 3533533, 3555557, 3577333, 5375327, 5375533, 7725733, 7737557, 7777337, 37237523, 37237573, 37237723, 37273237, 37273337, 55775227, 527522777, 527523223, 527532553

Offset

1,1

Comments

See A155088 for a table of the first 200 pairs (n, prime(n)). - Giovanni Resta, Mar 11 2013

Links

Giovanni Resta, Table of n, a(n) for n = 1..200

Example

The prime prime(7235) = 73237 is in the sequence because 7235 and 73237 contain only prime digits. - Giovanni Resta, Mar 11 2013

Mathematica

pQ[n_] := Union[IntegerDigits@n, {2, 3, 5, 7}] == {2, 3, 5, 7}; Prime@
Select[Range[10^5], pQ@# && pQ@Prime@# &] (* Giovanni Resta, Mar 11 2013 *)

Crossrefs

Cf. A155088.

Sequence in context: A058846 A268535 A268695 * A101331 A232239 A087368

Adjacent sequences: A167480 A167481 A167482 * A167484 A167485 A167486

Keyword

base,nonn

Author

Pierre CAMI, Nov 04 2009

Extensions

Corrected and extended by Donovan Johnson and Giovanni Resta, Mar 11 2013

Status

approved