A104941 Primes from merging of 7 successive digits in decimal expansion of the Euler-Mascheroni Constant.

2402431, 5933593, 8677267, 7726777, 6467093, 6709369, 6947063, 2417399, 7394279, 4709491, 9160087, 5670853, 8532331, 1528621, 7984793, 7400299, 2542151, 5190587, 3754139, 1395491, 1116851, 4234877, 1093997, 3997361

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, 500][[1]], len, 1]}, Select[egterms, IntegerLength[#] == len&&PrimeQ[#]&]]; egp[7] (* Vincenzo Librandi, Apr 24 2013 *)

Extensions

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