|
%I #5 Jun 19 2015 11:25:05
%S 80,11,52,23,14,54,56,7,138,29
%N Least number m such that m and m-th prime have only one common digit = n.
%C First terms in A107931 - A107940. The sequence is full because there are only 10 decimal digits.
%e a(0)=80 because 80 and 80th prime 409 have only one common digit = 0 and 80 is the least such a number.
%t lnm[n_]:=Module[{m=1},While[Intersection[IntegerDigits[Prime[m]], IntegerDigits[m]] != {n},m++];m]; Table[lnm[n],{n,0,9}] (* _Harvey P. Dale_, Jun 19 2015 *)
%Y Cf. A107931 - A107940.
%K fini,full,nonn,base
%O 0,1
%A _Zak Seidov_, Jun 08 2005
|
