|
%I #19 Feb 22 2023 05:35:18
%S 939923,992359,746749,241739,644923,350033,500333,374293,937337,
%T 773767,160087,670853,532331,199501,847937,299213,325421,526733,
%U 673313,331399,375413,395491,954911,939973,271351,349291,984301,341777,916633,633401
%N Primes from merging of 6 successive digits in decimal expansion of the Euler-Mascheroni Constant.
%C Each term must have 6 digits, i.e., leading zeros are not permitted. - _Harvey P. Dale_, Jun 07 2022
%H Vincenzo Librandi, <a href="/A104940/b104940.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="http://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[6] (* _Vincenzo Librandi_, Apr 20 2013 *)
%Y Cf. A001620.
%K nonn,base
%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
|
