|
Search: id:A082755
|
|
|
| A082755 |
|
Smaller of a pair of consecutive primes using only prime digits. |
|
+0
2
|
|
| 2, 3, 5, 223, 727, 3253, 3727, 5233, 5323, 7573, 7723, 7753, 22273, 23327, 25523, 27733, 32233, 32323, 32533, 35323, 35533, 37253, 37273, 52223, 52727, 53323, 53327, 53773, 55333, 72223, 72727, 75223, 75527, 75553, 222527, 222533, 222553
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
223 is a term as the next prime 227 also uses only prime digits.
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 0; q = 1; pd = {1}; Do[p = q; pd = qd; q = NextPrim[p]; qd = Union[ Join[{2, 3, 5, 7}, IntegerDigits[q]]]; If[pd == qd == {2, 3, 5, 7}, Print[p]], {n, 1, 20000}]
|
|
CROSSREFS
|
Cf. A082756.
Sequence in context: A082520 A062597 A038526 this_sequence A042067 A042579 A033090
Adjacent sequences: A082752 A082753 A082754 this_sequence A082756 A082757 A082758
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 18 2003
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 22 2003
|
|
|
Search completed in 0.002 seconds
|
