|
%I #10 Dec 14 2014 02:05:42
%S 74713,62497,24977,24709,47093,95957,49669,27427,46639,32003,59921,
%T 21817,35729,63073,28627,27943,94349,33829,98807,57383,41879,18793,
%U 91499,68477,47741,37423,42437,24371,10753,17027,61331,13313,93287
%N Primes from merging of 5 successive digits in decimal expansion of e.
%C Leading zeros are not permitted, so each term is 5 digits in length. - _Harvey P. Dale_, Oct 23 2011
%H Vincenzo Librandi, <a href="/A104846/b104846.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{len=5},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 20 2013
|
