The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #13 Apr 28 2013 01:54:53
%S 6367,1993,1697,6971,9719,1997,7549,4801,1087,4441,8447,5879,2689,
%T 6899,1013,7417,1039,7243,8059,5881,7841,1367,3671,3821,4703,3833,
%U 2129,4789,5443,1823,8237,8059,4547,5479,7901,9013,2659,5101,1499,9643,4229,1607
%N Primes from merging of 4 successive digits in decimal expansion of exp(Pi).
%H Vincenzo Librandi, <a href="/A105009/b105009.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]], 4, 1], # > 999 && 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