A104937 Primes from merging of 3 successive digits in decimal expansion of the Euler-Mascheroni constant.

577, 431, 421, 593, 359, 593, 359, 677, 677, 467, 709, 947, 467, 463, 631, 809, 401, 283, 241, 173, 739, 997, 449, 353, 337, 293, 937, 373, 733, 337, 773, 673, 739, 709, 491, 853, 233, 331, 151, 661, 211, 199, 479, 937, 857, 547, 421, 151, 587, 877, 673

Offset: 1

Author

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

Keywords

• nonn
• base

Comments

Leading zeros are not permitted, so each term is 3 digits in length. - Harvey P. Dale, Oct 30 2011

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..4000
• Eric Weisstein's World of Mathematics, Euler-Mascheroni Constant.
• The first 170,000 digits of the Euler Constant as calculated by Jon Borwein at WorldWideSchool.org.

Crossrefs

Cf. A198777.

Programs

Mathematica

egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]],len,1]},Select[egterms,IntegerLength[#]==len&&PrimeQ[#]&]];egp[3] (* Harvey P. Dale, Oct 30 2011 *)

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Apr 20 2013