I think you mean with simple numbers prime numbers? I guess so, because my result shows 120157 as the first:
FromDigits /@ Cases[IntegerDigits[Prime[Range[50000]]], {___, 2, 0, 1, 5, ___}]
giving:
{120157, 201511, 201517, 201547, 201557, 201577, 201581, 201589, 201599, 220151, 320153, 520151}
Next time, please show your own code, and what you have tried as per the community guidelines!