A051416 Primes whose digits are composite; primes having only {4, 6, 8, 9} as digits.
89, 449, 499, 4649, 4889, 4969, 4999, 6449, 6469, 6689, 6869, 6899, 6949, 8669, 8689, 8699, 8849, 8969, 8999, 9649, 9689, 9949, 44449, 44699, 46489, 46499, 46649, 46889, 48449, 48649, 48869, 48889, 48989, 49499, 49669, 49999, 64489, 64499, 64849, 64969, 66449
Offset: 1
Examples
89 is the smallest composite-digit prime and also the only composite-digit prime whose digits are distinct. - _Bernard Schott_, Jan 31 2019
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000
- Chris Caldwell, The Prime Glossary, Composite number
- G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 89
- Index to entries for primes with digits in a given set
Crossrefs
Programs
-
Mathematica
Select[Prime@Range[6500], Intersection[IntegerDigits[ # ], {0, 1, 2, 3, 5, 7}] == {} & ] (* Ray Chandler, Mar 04 2007 *) With[{c = {4, 6, 8, 9}}, Array[Select[Map[FromDigits@ Append[#, 9] &, Tuples[c, {#}]], PrimeQ] &, 4]] // Flatten (* Michael De Vlieger, Feb 02 2019 *)
Extensions
Extended by Ray Chandler, Mar 04 2007
Comments