A104942 Primes from merging of 8 successive digits in decimal expansion of the Euler-Mascheroni Constant.

72156649, 31042159, 35939923, 93992359, 98805767, 80576723, 77766467, 36947063, 33374293, 33742937, 42937337, 33773767, 25824709, 87352039, 15286211, 28621199, 50798479, 40296043, 51028079, 80798423, 84234877

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[8] (* Harvey P. Dale, Oct 29 2011 *)

Crossrefs

Cf. A001620.

Sequence in context: A237075 A291591 A198782 * A104849 A138058 A022228

Adjacent sequences: A104939 A104940 A104941 * A104943 A104944 A104945

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