|
Search: id:A076491
|
|
|
| A076491 |
|
Smallest consecutive prime pairs with at least n=0,1,2,3,4,... [not necessarily different] common decimal digits. |
|
+0
3
|
|
| 2, 3, 11, 13, 101, 103, 1031, 1033, 10223, 10243, 18379, 18397, 126079, 126097, 1206479, 1206497, 100438279, 100438297
(list; graph; listen)
|
|
|
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 this_sequence A105226 A139021 A145771
Adjacent sequences: A076488 A076489 A076490 this_sequence A076492 A076493 A076494
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 21 2002
|
|
|
Search completed in 0.002 seconds
|
