A229178 Primes seen in decimal expansion of e, contiguous, smallest and distinct, with terms larger than 10^100 replaced by 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
Offset: 1
Programs
-
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))
Extensions
More terms from Jinyuan Wang, Mar 26 2020
Comments