OFFSET
1,1
EXAMPLE
phi applied to the sequence gives: 1, 10, 102, 1032, 10246, 102358, 1023486, 10234758, 102345978, ...
MATHEMATICA
f[x_] := Length[Union[IntegerDigits[x]]]
t=Table[0, {10}];
Do[s=f[n]; If[PrimeQ[n]&&s<11&&t[[s]]==0,
t[[s]]=n], {n, 1, 10000000000}];
CROSSREFS
KEYWORD
nonn,fini,full,base
AUTHOR
Labos Elemer, Apr 04 2003
EXTENSIONS
a(10) from Donovan Johnson, Feb 05 2010
STATUS
approved