A198779 - OEIS

A198779

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

64901, 59399, 48677, 77267, 26777, 66467, 36947, 6329, 32917, 17467, 49807, 24809, 92353, 50033, 74293, 42937, 37337, 33773, 79259, 24709, 70949, 9491, 16567, 70853, 53233, 33151, 31517, 28621, 62119, 79847, 98479, 84793, 50857, 29921, 14669, 96043, 35267, 52673, 40129, 12967

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

In contrast to A104939, leading zeros are permitted, so this sequence contains all elements of A104939 and additional primes having fewer than 5 digits.

For example, these terms have only three digits: 503, 577, 307, 331, 919; and these terms have only two digits: 71, 61, 23, 73, 61. - Harvey P. Dale, Oct 20 2025

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

MATHEMATICA

egp[len_] := Module[{egterms = FromDigits /@ Partition[RealDigits[EulerGamma, 10, 400][[1]], len, 1]}, Select[egterms, PrimeQ[#] &]]; egp[5] (* Vincenzo Librandi, Apr 20 2013 *)

Select[FromDigits/@Partition[RealDigits[EulerGamma, 10, 400][[1]], 5, 1], PrimeQ] (* Harvey P. Dale, Oct 20 2025 *)

CROSSREFS

Cf. A186206, A103773, A103789, A103793, A103808-A103812, A104824-A104826, A104843-A104850, A198161-A198177, A198776-A198784.

Sequence in context: A061738 A350800 A342327 * A104939 A183975 A234908

Adjacent sequences: A198776 A198777 A198778 * A198780 A198781 A198782

KEYWORD

nonn,base

AUTHOR

Harvey P. Dale, Oct 29 2011

STATUS

approved