%I #3 Mar 30 2012 17:26:17
%S 14,84,234,244,364,400,401,471,480,481,482,484,485,487,488,496,547,
%T 548,554,564,604,640,641,642,643,644,645,646,647,649,654,840,842,940,
%U 942,943,944,946,1004,1054,1124,2004,2204,2244,2245,3004,3041,3048
%N Numbers n such that n and n-th prime have only one common digit = 4.
%t s={};Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]=={4}, s=Append[s, n]], {n, 4000}];A107935=s
%Y Cf. A107930 - A107940.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jun 08 2005