login
Primes from merging of 5 successive digits in decimal expansion of exp(Pi).
1

%I #13 Apr 28 2013 01:54:59

%S 69263,63277,32779,90863,35069,52783,77731,69383,44587,79609,65327,

%T 53279,24223,84401,41039,68477,77243,68059,95881,84449,44491,16319,

%U 31963,34147,11287,63773,47353,82129,78919,57271,13397,65951,95101

%N Primes from merging of 5 successive digits in decimal expansion of exp(Pi).

%H Vincenzo Librandi, <a href="/A105010/b105010.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/chap28.html">5,000 digits of exp(PI)</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[Pi], 10, 500][[1]], 5, 1], # > 9999 && PrimeQ[#] &] (* _Vincenzo Librandi_, Apr 27 2013 *)

%Y Cf. A039661.

%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 27 2013