A198777 Primes from merging of 3 successive digits in decimal expansion of Euler-Mascheroni constant.

577, 431, 421, 593, 359, 593, 359, 677, 677, 467, 709, 947, 467, 463, 631, 809, 401, 283, 241, 173, 739, 997, 449, 353, 3, 337, 293, 937, 373, 733, 337, 773, 673, 739, 709, 491, 853, 233, 331, 151, 661, 211, 199, 79, 479, 937, 857, 2, 29, 547, 29, 43, 421

Offset

1,1

Comments

Leading zeros are permitted, so some terms are less than 3 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[3]

Crossrefs

Cf. A103773, A103789, A103793,A103808,A103809,A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A104937, A198161, A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198170, A198171, A198172, A198173, A198175, A104851, A198177, A198776, A198778, A198779, A198780, A198781, A198782, A198783, A198784.

Sequence in context: A064031 A013911 A198778 * A104937 A234105 A234499

Adjacent sequences: A198774 A198775 A198776 * A198778 A198779 A198780

Keyword

nonn,base

Author

Harvey P. Dale, Oct 29 2011

Status

approved