A105007 - OEIS

%I #10 Feb 16 2025 08:32:57

%S 23,31,79,29,67,79,47,73,61,11,19,43,23,83,97,71,19,97,67,19,67,59,73,

%T 31,41,83,47,71,17,79,53,79,23,89,13,37,41,17,41,83,47,43,59,43,67,41,

%U 13,67,71,31,19,41,47,11,37,73,31,47,47,73,53,83,31,29,47,89,19,43,73

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

%H Vincenzo Librandi, <a href="/A105007/b105007.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="https://mathworld.wolfram.com/ExponentialFunction.html">Exponential Functions </a>

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

%Y Cf. A039661.

%K nonn,base,changed

%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