A198779 Primes from merging of 5 successive digits in decimal expansion of Euler-Mascheroni constant.

64901, 59399, 48677, 77267, 26777, 66467, 36947, 6329, 32917, 17467, 49807, 24809, 92353, 50033, 74293, 42937, 37337, 33773, 79259, 24709, 70949, 9491, 16567, 70853, 53233, 33151, 31517, 28621, 62119, 79847, 98479, 84793, 50857, 29921, 14669, 96043, 35267, 52673, 40129, 12967

Offset: 1

Author

Harvey P. Dale, Oct 29 2011

Keywords

• nonn
• base

Comments

In contrast to A104939, leading zeros are permitted, so this sequence contains all elements of A104939 and additional primes having fewer than 5 digits.

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A186206, A103773, A103789, A103793, A103808-A103812, A104824-A104826, A104843-A104850, A198161-A198177, A198776-A198784.

Programs

Mathematica

egp[len_] := Module[{egterms = FromDigits /@ Partition[RealDigits[EulerGamma, 10, 400][[1]], len, 1]}, Select[egterms, PrimeQ[#] &]]; egp[5] (* Vincenzo Librandi, Apr 20 2013 *)