%I #11 Oct 15 2013 22:31:52

%S 2,11,103,1033,10247,102359,1023487,10234759,102345979,1023475969

%N Smallest number x such that phi(x)=A000010(x) has exactly n different decimal digits.

%e phi applied to the sequence gives: 1, 10, 102, 1032, 10246, 102358, 1023486, 10234758, 102345978, ...

%t f[x_] := Length[Union[IntegerDigits[x]]]

%t t=Table[0, {10}];

%t Do[s=f[n]; If[PrimeQ[n]&&s<11&&t[[s]]==0,

%t t[[s]]=n], {n, 1, 10000000000}];

%Y Cf. A007809, A038378, A000010.

%K nonn,fini,full,base

%O 1,1

%A _Labos Elemer_, Apr 04 2003

%E a(10) from _Donovan Johnson_, Feb 05 2010