A107937 Numbers n such that n and n-th prime have only one common digit = 6.

56, 136, 163, 256, 260, 262, 263, 264, 265, 266, 336, 365, 506, 516, 596, 607, 619, 625, 626, 627, 628, 629, 630, 633, 665, 688, 698, 746, 786, 796, 806, 826, 836, 846, 856, 860, 861, 863, 864, 865, 866, 868, 869, 960, 966, 968, 1006, 1067, 1106

Offset

1,1

Links

Table of n, a(n) for n=1..49.

Mathematica

s={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{6}, s=Append[s, n]], {n, 3000}]; A107937=s
Select[Range[1200], Intersection[IntegerDigits[#], IntegerDigits[ Prime[#]]] == {6}&] (* Harvey P. Dale, May 28 2016 *)

Crossrefs

Cf. A107930 - A107940.

Sequence in context: A204840 A204833 A121736 * A044307 A044688 A241287

Adjacent sequences: A107934 A107935 A107936 * A107938 A107939 A107940

Keyword

nonn,base

Author

Zak Seidov, Jun 08 2005

Status

approved