|
| |
|
|
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;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..37.
|
|
|
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]] (* Harvey P. Dale, Jul 19 2011 *)
|
|
|
CROSSREFS
|
Cf. A082755.
Sequence in context: A088092 A174271 A211678 * A268693 A068832 A046472
Adjacent sequences: A082753 A082754 A082755 * A082757 A082758 A082759
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Amarnath Murthy, Apr 18 2003
|
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v, Apr 22 2003
|
|
|
STATUS
|
approved
|
| |
|
|
