OFFSET
1,1
COMMENTS
Leading zeros are permitted, so some terms may be less than 2 digits in length.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, PrimeQ[#]&]]; egp[2]
Select[FromDigits/@Partition[RealDigits[EulerGamma, 10, 500][[1]], 2, 1], PrimeQ] (* Harvey P. Dale, Mar 19 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 29 2011
STATUS
approved