|
%I #16 Dec 14 2014 02:07:51
%S 577,431,421,593,359,593,359,677,677,467,709,947,467,463,631,809,401,
%T 283,241,173,739,997,449,353,337,293,937,373,733,337,773,673,739,709,
%U 491,853,233,331,151,661,211,199,479,937,857,547,421,151,587,877,673
%N Primes from merging of 3 successive digits in decimal expansion of the Euler-Mascheroni constant.
%C Leading zeros are not permitted, so each term is 3 digits in length. - _Harvey P. Dale_, Oct 30 2011
%H Vincenzo Librandi, <a href="/A104937/b104937.txt">Table of n, a(n) for n = 1..4000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Euler-MascheroniConstant.html">Euler-Mascheroni Constant</a>.
%H The first <a href="http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap35.html">170,000 digits of the Euler Constant</a> as calculated by Jon Borwein at WorldWideSchool.org.
%t egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]],len,1]},Select[egterms,IntegerLength[#]==len&&PrimeQ[#]&]];egp[3] (* _Harvey P. Dale_, Oct 30 2011 *)
%Y Cf. A198777.
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 20 2013
|
