%I #23 Feb 16 2025 08:32:57
%S 72156649,31042159,35939923,93992359,98805767,80576723,77766467,
%T 36947063,33374293,33742937,42937337,33773767,25824709,87352039,
%U 15286211,28621199,50798479,40296043,51028079,80798423,84234877
%N Primes from merging of 8 successive digits in decimal expansion of the Euler-Mascheroni Constant.
%H Vincenzo Librandi, <a href="/A104942/b104942.txt">Table of n, a(n) for n = 1..1000</a>
%H Jon Borwein, <a href="https://web.archive.org/web/20060212094503/http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap35.html">170,000 digits of Gamma</a> [Wayback Machine copy]
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Euler-MascheroniConstant.html">Euler-Mascheroni Constant</a>.
%t egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, IntegerLength[#]==len&&PrimeQ[#]&]]; egp[8] (* _Harvey P. Dale_, Oct 29 2011 *)
%Y Cf. A001620.
%K nonn,base,changed
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 20 2013