|
| |
|
|
A082756
|
|
Larger of a pair of consecutive primes using only prime digits.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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}]
Transpose[Select[Partition[Prime[Range[20000]], 2, 1], And@@PrimeQ[ Flatten[ IntegerDigits/@#]]&]] [[2]] (* From Harvey P. Dale, Jul 19 2011 *)
|
|
|
CROSSREFS
| Cf. A082755.
Sequence in context: A114366 A088092 A174271 * A068832 A046472 A065824
Adjacent sequences: A082753 A082754 A082755 * 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
|
| |
|
|
