A167483 - OEIS

%I #10 Mar 12 2013 04:10:34

%S 3,5,257,2237,2377,2557,5557,33353,33377,73237,252233,252253,253573,

%T 3533377,3533533,3555557,3577333,5375327,5375533,7725733,7737557,

%U 7777337,37237523,37237573,37237723,37273237,37273337,55775227,527522777,527523223,527532553

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

%C See A155088 for a table of the first 200 pairs (n, prime(n)). - _Giovanni Resta_, Mar 11 2013

%H Giovanni Resta, <a href="/A167483/b167483.txt">Table of n, a(n) for n = 1..200</a>

%e The prime prime(7235) = 73237 is in the sequence because 7235 and 73237 contain only prime digits. - _Giovanni Resta_, Mar 11 2013

%t pQ[n_] := Union[IntegerDigits@n, {2, 3, 5, 7}] == {2, 3, 5, 7}; Prime@

%t Select[Range[10^5], pQ@# && pQ@Prime@# &] (* _Giovanni Resta_, Mar 11 2013 *)

%Y Cf. A155088.

%K base,nonn

%O 1,1

%A _Pierre CAMI_, Nov 04 2009

%E Corrected and extended by _Donovan Johnson_ and _Giovanni Resta_, Mar 11 2013