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,1

Comments

For similar sequences see A152426 and A152427.

Links

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

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 *)

Crossrefs

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

Sequence in context: A152426 A152427 A179909 * A092626 A156343 A154762

Adjacent sequences: A220485 A220486 A220487 * A220489 A220490 A220491

Keyword

nonn,base,easy

Author

Omar E. Pol, Feb 01 2013

Status

approved