sergey markelov

Puzzle is to find the first 10-digit prime number occurring in consecutive
digits (i.e., the decimal expansion) of the e. Answer is known
(7427466391), it was found using the following Mathematica code:

Select[FromDigits/@Partition[First[RealDigits[E,10,1000]],10,1],PrimeQ,1]

source: http://mathworld.wolfram.com/news/2004-10-13/google/

My question to solve this problem using Maple. It is not so hard to do
this writing a long program (mine is 28 lines of code), but I need as
short as possible one (purpose is to explain my boss to buy also Maple,
not only Mathematica).

Thank you.
Sergei Markelov