A107939 Numbers n such that n and n-th prime have only one common digit = 8.

138, 148, 280, 282, 283, 284, 285, 286, 288, 418, 588, 608, 748, 768, 782, 818, 877, 880, 882, 884, 885, 887, 988, 989, 1048, 1068, 1078, 1080, 1082, 1084, 1089, 1108, 1184, 2048, 2078, 2080, 2082, 2083, 2084, 2085, 2228, 2248

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

bb={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{8}, bb=Append[bb, n]], {n, 3000}]; bb
Select[Range[2500], Intersection[IntegerDigits[#], IntegerDigits[ Prime[#]]] == {8}&] (* Harvey P. Dale, Dec 10 2015 *)

Crossrefs

Cf. A107930 - A107940.

Sequence in context: A292094 A031964 A114820 * A008888 A045045 A108156

Adjacent sequences: A107936 A107937 A107938 * A107940 A107941 A107942

Keyword

nonn,base

Author

Zak Seidov, Jun 08 2005

Status

approved