|
| |
|
|
A076491
|
|
Smallest consecutive prime pairs with at least n=0,1,2,3,4,... [not necessarily different] common decimal digits.
|
|
2
| |
|
|
2, 3, 11, 13, 101, 103, 1031, 1033, 10223, 10243, 18379, 18397, 126079, 126097, 1206479, 1206497, 100438279, 100438297
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
MATHEMATICA
| Do[Length[Intersection[IntegerDigits[Prime[n+1]], InterDigits[Prime[n]]]]; If[Equal[s, m], Print[{Prime[n], Prime[n+1]}]], {n, a, b}]
|
|
|
CROSSREFS
| Cf. A006880, A076489, A076490.
Sequence in context: A129670 A057324 A139052 * A105226 A139021 A176038
Adjacent sequences: A076488 A076489 A076490 * A076492 A076493 A076494
|
|
|
KEYWORD
| base,more,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 21 2002
|
| |
|
|
