OFFSET
1,1
PROG
(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) }
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jul 13 2004
STATUS
approved