A152427 -id:A152427 - cp's OEIS frontend

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

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

Offset: 1

Omar E. Pol, Dec 03 2008

See also A152427, a subsequence without zeros.

Cf. A019546, A034844, A087363, A092621, A092626, A152312, A152313, A152427.

okQ[n_] := Module[{d=Union[IntegerDigits[n]]}, Length[Intersection[d, {2,3,5,7}]]>0 && Length[Intersection[d, {0,1,4,6,8,9}]]>0]; Select[Prime[Range[100]], okQ] (* T. D. Noe, Jan 20 2011 *)

Edited by Omar E. Pol, Jul 04 2009, Jan 20 2011

Definition clarified by N. J. A. Sloane, Jul 05 2009

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

Original entry on oeis.org

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

Omar E. Pol, Feb 01 2013

For similar sequences see A152426 and A152427.

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

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

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Extensions