%I #5 Dec 10 2015 09:53:05
%S 138,148,280,282,283,284,285,286,288,418,588,608,748,768,782,818,877,
%T 880,882,884,885,887,988,989,1048,1068,1078,1080,1082,1084,1089,1108,
%U 1184,2048,2078,2080,2082,2083,2084,2085,2228,2248
%N Numbers n such that n and n-th prime have only one common digit = 8.
%H Harvey P. Dale, <a href="/A107939/b107939.txt">Table of n, a(n) for n = 1..1000</a>
%t bb={};Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{8}, bb=Append[bb, n]], {n, 3000}];bb
%t Select[Range[2500],Intersection[IntegerDigits[#],IntegerDigits[ Prime[#]]] == {8}&] (* _Harvey P. Dale_, Dec 10 2015 *)
%Y Cf. A107930 - A107940.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jun 08 2005
|