A104940 Primes from merging of 6 successive digits in decimal expansion of the Euler-Mascheroni Constant.

939923, 992359, 746749, 241739, 644923, 350033, 500333, 374293, 937337, 773767, 160087, 670853, 532331, 199501, 847937, 299213, 325421, 526733, 673313, 331399, 375413, 395491, 954911, 939973, 271351, 349291, 984301, 341777, 916633, 633401

Offset: 1

Author

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

Keywords

• nonn
• base

Comments

Each term must have 6 digits, i.e., leading zeros are not permitted. - Harvey P. Dale, Jun 07 2022

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

Extensions

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