OFFSET
1,2
FORMULA
a(n)=pi(A030284(n))
MATHEMATICA
d=2; b={1}; Do[p=Prime[n]; If[Intersection@@IntegerDigits/@{d, p}=={}, b=Append[b, n]; d=p], {n, 100000000}]; b
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 24 2005
STATUS
approved