%I #3 Oct 01 2013 17:58:00
%S 71,59,23,53,2,47,71,13,97,47,59,67,7,3,53,47,59,71,13,17,19,3,5,59,
%T 17,41,13,59,29,43,29,3,29,5,59,7,73,13,23,79,43,7,23,29,7,53,31,19,
%U 19,11,73,83,41,79,7,2,89,41,67,47,61,47,41,11,53,37,23,43,37,71,7,53,7,17,2
%N One- or two-digit primes encountered in the decimal expansion of e.
%o (PARI) digitepr(n,d) = { default(realprecision,1000); e=Str(exp(1)*10^999); default(realprecision,28); for(x=1,n,y=eval(mid(e,x,d));if(isprime(y),print1(y","))) } \ Get a substring of length n from string str starting at position s in str. mid(str,s,n) = { local(v,ln,x,tmp); v =""; tmp = Vec(str); ln=length(tmp); for(x=s,s+n-1, v=concat(v,tmp[x]); ); return(v) }
%K base,nonn
%O 1,1
%A _Cino Hilliard_, Jul 13 2004