|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|