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

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.

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

Crossrefs

Cf. A001620.

Sequence in context: A350800 A342327 A198779 * A183975 A234908 A204640

Adjacent sequences: A104936 A104937 A104938 * A104940 A104941 A104942

Keyword

nonn,base

Author

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

Extensions

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

Status

approved