login
Primes from merging of 6 successive digits in decimal expansion of exp(2).
1

%I #7 Apr 27 2013 09:11:24

%S 650227,518473,379607,338431,737531,753161,126547,866123,839221,

%T 392213,398077,537023,702391,913309,225523,523487,348757,462541,

%U 254141,414679,707633,378997,407299,303307,831239,123923,833999,996461,520967,356263

%N Primes from merging of 6 successive digits in decimal expansion of exp(2).

%H Vincenzo Librandi, <a href="/A105002/b105002.txt">Table of n, a(n) for n = 1..1000</a>

%H The first <a href="http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap21.html">5,000 digits of exp(2)</a> as calculated by _Simon Plouffe_ at WorldWideSchool.org.

%H Eric Weisstein, <a href="http://mathworld.wolfram.com/ExponentialFunction.html">Exponential Functions </a>

%t Select[FromDigits/@Partition[RealDigits[Exp[2], 10, 700][[1]], 6, 1], #>99999&&PrimeQ[#]&] (* _Vincenzo Librandi_, Apr 26 2013 *)

%K nonn,base

%O 1,1

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

%E Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 26 2013