|
| |
|
|
A082755
|
|
Smaller of a pair of consecutive primes using only prime digits.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A042067 A042579 A033090
Adjacent sequences: A082752 A082753 A082754 * 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
|
| |
|
|
