|
Search: id:A082756
|
|
|
| A082756 |
|
Larger of a pair of consecutive primes using only prime digits. |
|
+0
2
|
|
| 3, 5, 7, 227, 733, 3257, 3733, 5237, 5333, 7577, 7727, 7757, 22277, 23333, 25537, 27737, 32237, 32327, 32537, 35327, 35537, 37273, 37277, 52237, 52733, 53327, 53353, 53777, 55337, 72227, 72733, 75227, 75533, 75557, 222533, 222553, 222557
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
227 is a term as the previous prime 223 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[q]], {n, 1, 20000}]
|
|
CROSSREFS
|
Cf. A082755.
Sequence in context: A128344 A114366 A088092 this_sequence A068832 A046472 A065824
Adjacent sequences: A082753 A082754 A082755 this_sequence A082757 A082758 A082759
|
|
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
|
