login
A095936
One- or two-digit primes encountered in the decimal expansion of e.
0
71, 59, 23, 53, 2, 47, 71, 13, 97, 47, 59, 67, 7, 3, 53, 47, 59, 71, 13, 17, 19, 3, 5, 59, 17, 41, 13, 59, 29, 43, 29, 3, 29, 5, 59, 7, 73, 13, 23, 79, 43, 7, 23, 29, 7, 53, 31, 19, 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
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
Sequence in context: A033391 A122967 A087075 * A104843 A322831 A127316
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jul 13 2004
STATUS
approved