login
A107938
Numbers n such that n and n-th prime have only one common digit = 7.
5
7, 37, 74, 75, 78, 107, 127, 247, 267, 270, 272, 274, 275, 276, 277, 367, 376, 387, 407, 417, 475, 476, 527, 557, 567, 577, 587, 597, 667, 678, 697, 700, 707, 710, 713, 718, 722, 723, 728, 731, 733, 760, 762, 770, 772, 774, 776, 784, 787, 789, 791, 792, 817
OFFSET
1,1
LINKS
MATHEMATICA
s={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{7}, s=Append[s, n]], {n, 3000}]; A107938=s
Select[Range[1000], Intersection[IntegerDigits[#], IntegerDigits[Prime[ #]]] == {7}&] (* Harvey P. Dale, May 04 2020 *)
CROSSREFS
Sequence in context: A337423 A031395 A138906 * A154105 A159491 A106064
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved