|
%I #14 Dec 14 2014 02:05:56
%S 2718281,6028747,2497757,5354759,4759457,7594571,5945713,7138217,
%T 3059921,9921817,6059563,6307381,3073813,9525101,5251019,4089149,
%U 8914993,9348841,4167509,7774499,8606261,2613313,5830007,1274437
%N Primes from merging of 7 successive digits in decimal expansion of e.
%C Leading zeros are not permitted, so each term is 7 digits in length. - _Harvey P. Dale_, Oct 23 2011
%H Vincenzo Librandi, <a href="/A104848/b104848.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{len=7},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 19 2013
|
