|
|
A229178
|
|
Primes seen in decimal expansion of e, contiguous, smallest and distinct, with terms larger than 10^100 replaced by 0.
|
|
0
|
|
|
2, 7, 0, 5, 3, 11, 80232878250981945581530175671, 73, 61, 332069, 811, 2509961, 81881593, 41, 0, 30592123, 66771943252786753, 0, 0, 6343, 490769, 64237, 2229435236612557250881, 47, 79, 223, 151, 97, 477806056967, 253801, 71, 0, 0, 9467, 83, 48197
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Sequence A047777 is the analog for Pi.
Without the admittedly arbitrary clause "terms larger than ... replaced by zero", the sequence could not be stored beyond its second term, since the 3rd term would have 649 digits (and the 15th term would have 441 digits). Although this restriction is arbitrary, several other (maybe more natural) alternatives (for example, larger than the concatenation of the preceding/following 10 terms...) would yield the same initial terms.
|
|
LINKS
|
|
|
PROG
|
(PARI) default(realprecision, 5000); c=exp(1)/10; u=[]; for(k=0, 9e9, ispseudoprime(c\.1^k) & !setsearch(u, c\.1^k) & (u=setunion(u, Set(c\.1^k))) & !print1(c\.1^k, ", ") & k=0*c=frac(c*10^k))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|