A104939 Primes from merging of 5 successive digits in decimal expansion of the Euler-Mascheroni Constant.

64901, 59399, 48677, 77267, 26777, 66467, 36947, 32917, 17467, 49807, 24809, 92353, 50033, 74293, 42937, 37337, 33773, 79259, 24709, 70949, 16567, 70853, 53233, 33151, 31517, 28621, 62119, 79847, 98479, 84793, 50857, 29921, 14669

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[5] (* Vincenzo Librandi, Apr 20 2013 *)

Extensions

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