|
%I #9 Apr 28 2013 01:14:35
%S 263,277,269,863,367,547,661,211,199,409,971,719,199,997,967,877,773,
%T 383,587,653,863,223,991,101,137,401,103,881,449,449,491,677,367,163,
%U 631,821,773,347,353,383,331,821,919,193,443,433,557,727,271,823,449
%N Primes from merging of 3 successive digits in decimal expansion of exp(Pi).
%H Vincenzo Librandi, <a href="/A105008/b105008.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]], 3, 1], #>99&&PrimeQ[#]&] (* _Vincenzo Librandi_, Apr 26 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 26 2013
|
