A104942 Primes from merging of 8 successive digits in decimal expansion of the Euler-Mascheroni Constant.

72156649, 31042159, 35939923, 93992359, 98805767, 80576723, 77766467, 36947063, 33374293, 33742937, 42937337, 33773767, 25824709, 87352039, 15286211, 28621199, 50798479, 40296043, 51028079, 80798423, 84234877

Offset: 1

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Jon Borwein, 170,000 digits of Gamma [Wayback Machine copy]
• Eric Weisstein's World of Mathematics, Euler-Mascheroni Constant.

Crossrefs

Cf. A001620.

Programs

Mathematica

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 *)

Extensions

Changed offset from 0 to 1 by Vincenzo Librandi, Apr 20 2013