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
KEYWORD
base,nonn
AUTHOR
Pierre CAMI, Nov 04 2009
EXTENSIONS
Corrected and extended by Donovan Johnson and Giovanni Resta, Mar 11 2013
STATUS
approved