|
%I #20 Aug 11 2014 22:45:26
%S 71,59,23,53,47,71,13,97,47,59,67,53,47,59,71,13,17,19,59,17,41,13,59,
%T 29,43,29,29,59,73,13,23,79,43,23,29,53,31,19,19,11,73,83,41,79,89,41,
%U 67,47,61,47,41,11,53,37,23,43,37,71,53,17,61,83,61,13,31,13,83,29,97
%N Primes from merging of 2 successive digits in decimal expansion of e.
%C Scan decimal expansion of e from left to right, recording any 2-digit primes seen. Overlaps are allowed in all the sequences in this family. - _N. J. A. Sloane_, Feb 05 2012
%C Leading zeros are not permitted, so each term is 2 digits in length. [From Harvey P. Dale, Oct 23 2011]
%H Vincenzo Librandi, <a href="/A104843/b104843.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein, <a href="http://mathworld.wolfram.com/e.html">e</a>
%t With[{len=2},FromDigits/@Select[Partition[RealDigits[E,10,1000][[1]], len,1],PrimeQ[FromDigits[#]]&&IntegerLength[FromDigits[#]]==len&]] (* _Harvey P. Dale_, Oct 23 2011 *)
%Y Cf. A001113, A073246 (the one-digit primes in e), A104844 - A104862.
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 27 2005
%E Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 21 2013
|
