%I #6 Jun 12 2013 11:05:15
%S 3,13,31,43,83,103,113,131,139,163,193,311,313,331,349,383,389,431,
%T 433,439,443,463,613,631,643,683,839,863,883,983,1013,1031,1033,1039,
%U 1063,1093,1103,1163,1193,1301,1303,1319,1361,1381,1399,1433,1439,1483,1493
%N Primes whose only prime digits are 3's.
%H Harvey P. Dale, <a href="/A179026/b179026.txt">Table of n, a(n) for n = 1..1000</a>
%t pd3Q[n_]:=Module[{idn=IntegerDigits[n]},MemberQ[idn,3]&&Union[PrimeQ[ DeleteCases[ IntegerDigits[n],3]]]=={False}]; Join[{3},Select[ Prime[ Range[300]],pd3Q]] (* _Harvey P. Dale_, Jun 12 2013 *)
%Y Cf. A179027.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Jun 25 2010
%E Corrected by _Ray Chandler_, Jul 13 2010