login
Primes from merging of 3 successive digits in decimal expansion of e.
25

%I #10 Dec 14 2014 06:19:48

%S 271,281,523,353,977,757,709,967,277,353,547,457,571,821,251,919,193,

%T 599,181,359,563,307,349,907,233,829,251,101,157,383,307,149,499,167,

%U 509,761,853,107,907,449,499,761,613,331,313,449,673,113,709,709,127

%N Primes from merging of 3 successive digits in decimal expansion of e.

%C Leading zeros are not permitted, so each term is 3 digits in length. - _Harvey P. Dale_, Oct 23 2011

%H Vincenzo Librandi, <a href="/A104844/b104844.txt">Table of n, a(n) for n = 1..3000</a>

%t With[{len=3},FromDigits/@Select[Partition[RealDigits[E,10,1000][[1]], len,1],PrimeQ[FromDigits[#]]&&IntegerLength[FromDigits[#]]==len&]] (* _Harvey P. Dale_, Oct 23 2011 *)

%Y Cf. A104843-A104862.

%K nonn,base

%O 1,1

%A Andrew G. West (WestA(AT)wlu.edu), Mar 27 2005

%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 21 2013