OFFSET
1,1
MATHEMATICA
s={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]=={4}, s=Append[s, n]], {n, 4000}]; A107935=s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved