login
A104936
Primes from merging of 2 successive digits in decimal expansion of the Euler-Mascheroni Constant.
2
53, 43, 31, 59, 59, 23, 59, 67, 23, 67, 67, 67, 47, 29, 17, 67, 31, 47, 83, 41, 17, 73, 97, 23, 53, 53, 37, 29, 37, 73, 37, 73, 37, 67, 73, 79, 59, 47, 73, 67, 53, 23, 31, 17, 61, 11, 11, 19, 79, 47, 79, 37, 29, 13, 47, 61, 29, 43, 19, 53, 67, 73, 31, 13, 29, 67, 13, 37, 41
OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each term is 2 digits in length. - Harvey P. Dale, Oct 30 2011
LINKS
Eric Weisstein's World of Mathematics, Euler-Mascheroni Constant.
The first 170,000 digits of the Euler Constant as calculated by Jon Borwein at WorldWideSchool.org.
MATHEMATICA
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, IntegerLength[#]==len&&PrimeQ[#]&]]; egp[2] (* Harvey P. Dale, Oct 30 2011 *)
CROSSREFS
Cf. A198776.
Sequence in context: A319904 A171132 A259091 * A262908 A109648 A109733
KEYWORD
nonn,base
AUTHOR
Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
EXTENSIONS
Offset changed from 0 to 1 by Vincenzo Librandi, Apr 20 2013
STATUS
approved