OFFSET
1,1
COMMENTS
MATHEMATICA
d=2; e=3; b={2, 3}; id[t_]:=IntegerDigits[t]; Do[p=Prime[n]; If[Intersection[Union[id[d], id[e]], id[p]]=={}, b=Append[b, p]; d=e; e=p], {n, 100000}]; b
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 24 2005, Oct 23 2009
EXTENSIONS
Edited by N. J. A. Sloane, Oct 29 2009
STATUS
approved