EPrime[n_] :=
ToExpression["2" <> StringTake[ToString[N[E, n + 2]], {3, n + 1}]]
Mathematica s PrimeQ[EPrime[155025]] returns True

To be completed...