login
Numbers n such that n and n-th prime have only one common digit = 4.
5

%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