login
A107937
Numbers n such that n and n-th prime have only one common digit = 6.
5
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
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
Sequence in context: A204840 A204833 A121736 * A044307 A044688 A241287
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved