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,1

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.

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

Crossrefs

Cf. A198777.

Sequence in context: A013911 A198778 A198777 * A234105 A234499 A218039

Adjacent sequences: A104934 A104935 A104936 * A104938 A104939 A104940

Keyword

nonn,base

Author

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

Extensions

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

Status

approved