A152426 -id:A152426 - cp's OEIS frontend

A152427 Primes that have both prime digits (2,3,5,7) and nonprime digits (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, 311, 313, 317, 331, 347, 349, 359, 367, 379, 383, 389, 397, 421, 431, 433, 439

Offset: 1

Omar E. Pol, Dec 03 2008

A000040 \ A034844 \ A019546.

Cf. A018252.

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

okQ[n_] := Module[{d = Union[IntegerDigits[n]]}, Length[Intersection[d, {2, 3, 5, 7}]] > 0 && Length[Intersection[d, {1, 4, 6, 8, 9}]] > 0]; Select[Prime[Range[100]], okQ] (* T. D. Noe, Jan 21 2011 *)
pdQ[n_]:=Module[{idn=Select[IntegerDigits[n],#!=0&]},Count[idn,?PrimeQ]>0&&Count[idn,?(!PrimeQ[#]&)]>0]; Select[Prime[Range[100]],pdQ] (* Harvey P. Dale, Jan 31 2013 *)

a(n) ~ n log n

Corrected and extended by Harvey P. Dale, Jan 31 2013

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

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula

Extensions