A104943 Primes from merging of 9 successive digits in decimal expansion of the Euler-Mascheroni Constant.

215664901, 593359399, 235988057, 362241739, 739976449, 337429373, 733773767, 670853233, 146694029, 151905877, 267331399, 413954911, 984234877, 384310939, 310939973, 939973613, 306088933, 759271351, 549570661, 789358679, 725203621

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[9] (* Harvey P. Dale, Oct 29 2011 *)

Extensions

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