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

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

Mathematica

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

Crossrefs

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

Sequence in context: A061738 A350800 A342327 * A104939 A183975 A234908

Adjacent sequences: A198776 A198777 A198778 * A198780 A198781 A198782

Keyword

nonn,base

Author

Harvey P. Dale, Oct 29 2011

Status

approved