OFFSET
1,1
MATHEMATICA
s={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{6}, s=Append[s, n]], {n, 3000}]; A107937=s
Select[Range[1200], Intersection[IntegerDigits[#], IntegerDigits[ Prime[#]]] == {6}&] (* Harvey P. Dale, May 28 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved