%I #5 May 04 2020 11:08:17
%S 7,37,74,75,78,107,127,247,267,270,272,274,275,276,277,367,376,387,
%T 407,417,475,476,527,557,567,577,587,597,667,678,697,700,707,710,713,
%U 718,722,723,728,731,733,760,762,770,772,774,776,784,787,789,791,792,817
%N Numbers n such that n and n-th prime have only one common digit = 7.
%H Harvey P. Dale, <a href="/A107938/b107938.txt">Table of n, a(n) for n = 1..1000</a>
%t s={};Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{7}, s=Append[s, n]], {n, 3000}];A107938=s
%t Select[Range[1000],Intersection[IntegerDigits[#],IntegerDigits[Prime[ #]]] == {7}&] (* _Harvey P. Dale_, May 04 2020 *)
%Y Cf. A107930 - A107940.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jun 08 2005
|