A104843 Primes from merging of 2 successive digits in decimal expansion of e.
71, 59, 23, 53, 47, 71, 13, 97, 47, 59, 67, 53, 47, 59, 71, 13, 17, 19, 59, 17, 41, 13, 59, 29, 43, 29, 29, 59, 73, 13, 23, 79, 43, 23, 29, 53, 31, 19, 19, 11, 73, 83, 41, 79, 89, 41, 67, 47, 61, 47, 41, 11, 53, 37, 23, 43, 37, 71, 53, 17, 61, 83, 61, 13, 31, 13, 83, 29, 97
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, e
Programs
-
Mathematica
With[{len=2},FromDigits/@Select[Partition[RealDigits[E,10,1000][[1]], len,1],PrimeQ[FromDigits[#]]&&IntegerLength[FromDigits[#]]==len&]] (* Harvey P. Dale, Oct 23 2011 *)
Extensions
Changed offset from 0 to 1 by Vincenzo Librandi, Apr 21 2013
Comments