%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