A220488 Primes that have both prime digits (2,3,5,7) and nonprime digits (1,4,6,8,9), without digits "0".

13, 17, 29, 31, 43, 47, 59, 67, 71, 79, 83, 97, 113, 127, 131, 137, 139, 151, 157, 163, 167, 173, 179, 193, 197, 211, 229, 239, 241, 251, 263, 269, 271, 281, 283, 293, 311, 313, 317, 331, 347, 349, 359, 367, 379, 383, 389, 397, 421, 431, 433, 439

Offset: 1

Author

Omar E. Pol, Feb 01 2013

Keywords

• nonn
• base
• easy

Comments

For similar sequences see A152426 and A152427.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A018252, A019546, A034844, A038618, A087363, A092621, A092626, A152312, A152313, A152426, A152427.

Programs

Mathematica

pdnpdQ[n_]:=Module[{idn=IntegerDigits[n],p,z=DigitCount[n,10,0]},p=Count[ idn,?PrimeQ];p>0&&z==0&&Length[idn]>p]; Select[ Prime[ Range[ 150]], pdnpdQ] (* _Harvey P. Dale, Oct 01 2013 *)