login
A104937
Primes from merging of 3 successive digits in decimal expansion of the Euler-Mascheroni constant.
2
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
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
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