A104941 Primes from merging of 7 successive digits in decimal expansion of the Euler-Mascheroni Constant.

2402431, 5933593, 8677267, 7726777, 6467093, 6709369, 6947063, 2417399, 7394279, 4709491, 9160087, 5670853, 8532331, 1528621, 7984793, 7400299, 2542151, 5190587, 3754139, 1395491, 1116851, 4234877, 1093997, 3997361

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, 500][[1]], len, 1]}, Select[egterms, IntegerLength[#] == len&&PrimeQ[#]&]]; egp[7] (* Vincenzo Librandi, Apr 24 2013 *)

Crossrefs

Cf. A001620.

Sequence in context: A184496 A022247 A198781 * A251805 A184669 A184569

Adjacent sequences: A104938 A104939 A104940 * A104942 A104943 A104944

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 24 2013

Status

approved