A198776 Primes from merging of 2 successive digits in decimal expansion of Euler-Mascheroni constant.

53, 2, 43, 31, 59, 59, 23, 59, 5, 67, 23, 67, 67, 67, 47, 29, 17, 67, 31, 47, 7, 5, 83, 41, 17, 73, 97, 23, 53, 53, 3, 37, 29, 37, 73, 37, 73, 37, 67, 73, 79, 59, 47, 73, 3, 67, 53, 23, 31, 17, 61, 11, 11, 19, 7, 79, 47, 79, 37, 5, 2, 29, 13, 47, 61, 2, 29

Offset: 1

Author

Harvey P. Dale, Oct 29 2011

Keywords

• nonn
• base

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

Crossrefs

Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811,

A103812, A104824, A104825, A104826, A104843, A104844, A104845,

A104846, A104847, A104848, A104849, A104850, A104936, A198161, A198162,

A198163, A198164, A198165, A198166, A198167, A198168, A198169,

A198170, A198171, A198172, A198173, A198175, A104851, A198177,

A198777, A198778, A198779, A198780, A198781, A198782,

A198783, A198784.

Programs

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 *)