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