OFFSET
1,1
COMMENTS
Sequence is infinite. - T. D. Noe, Jun 06 2007
a(n) may never have all of the 4 digits 1, 3, 7, 9: if a(n) has 3 of these digits then a(n+1) ends with the fourth one. - Pierre CAMI, May 06 2011
LINKS
T. D. Noe, Table of n, a(n) for n = 1..500
MATHEMATICA
ta={1}; Do[s1=IntegerDigits[Part[ta, Length[ta]]]; s2=IntegerDigits[Prime[n]]; If[Equal[Intersection[s1, s2], {}], Print[{Prime[n], Prime[n+1]}]; ta=Append[ta, Prime[n]]], {n, 1, 1000000}]; ta=Delete[ta, 1] (* Labos Elemer, Nov 18 2004 *)
PROG
(Haskell)
import Data.List (intersect)
a030284 n = a030284_list !! (n-1)
a030284_list = f [] a000040_list where
f xs (p:ps) = if null $ intersect xs ys then p : f ys ps else f xs ps
where ys = show p
-- Reinhard Zumkeller, Sep 21 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Labos Elemer, Nov 18 2004
STATUS
approved