The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #21 Dec 13 2014 04:53:28
%S 64901,59399,48677,77267,26777,66467,36947,6329,32917,17467,49807,
%T 24809,92353,50033,74293,42937,37337,33773,79259,24709,70949,9491,
%U 16567,70853,53233,33151,31517,28621,62119,79847,98479,84793,50857,29921,14669,96043,35267,52673,40129,12967
%N Primes from merging of 5 successive digits in decimal expansion of Euler-Mascheroni constant.
%C In contrast to A104939, leading zeros are permitted, so this sequence contains all elements of A104939 and additional primes having fewer than 5 digits.
%H Vincenzo Librandi, <a href="/A198779/b198779.txt">Table of n, a(n) for n = 1..1000</a>
%t egp[len_] := Module[{egterms = FromDigits /@ Partition[RealDigits[EulerGamma, 10, 400][[1]], len, 1]}, Select[egterms, PrimeQ[#] &]]; egp[5] (* _Vincenzo Librandi_, Apr 20 2013 *)
%Y Cf. A186206, A103773, A103789, A103793, A103808-A103812, A104824-A104826, A104843-A104850, A198161-A198177, A198776-A198784.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 29 2011