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

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.

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

Crossrefs

Cf. A001620.

Sequence in context: A104929 A205614 A198780 * A203893 A345640 A346353

Adjacent sequences: A104937 A104938 A104939 * A104941 A104942 A104943

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