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

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.

Sequence in context: A038778 A116107 A114787 * A367821 A051320 A232126

Adjacent sequences: A198773 A198774 A198775 * A198777 A198778 A198779

Keyword

nonn,base

Author

Harvey P. Dale, Oct 29 2011

Status

approved