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

215664901, 593359399, 235988057, 362241739, 739976449, 33374293, 337429373, 733773767, 87352039, 670853233, 146694029, 151905877, 267331399, 413954911, 984234877, 384310939, 310939973, 93997361, 939973613, 306088933, 60889331, 759271351, 549570661, 789358679

Offset

1,1

Comments

In contrast to A104943, leading zeros are permitted, so this sequence contains all terms of A104943 and additional primes with fewer than 9 digits.

Links

Table of n, a(n) for n=1..24.

Maple

Digits := 620 ;
for sh from 8 do
        p := floor(gamma*10^sh) mod 1000000000 ;
        if isprime(p) then
                printf("%d, ", p);
        end if;
end do: # R. J. Mathar, Oct 31 2011

Mathematica

Select[FromDigits/@Partition[RealDigits[EulerGamma, 10, 520][[1]], 9, 1], PrimeQ] (* Harvey P. Dale, Jun 03 2021 *)

Crossrefs

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

Sequence in context: A017660 A180689 A251522 * A104943 A250599 A114672

Adjacent sequences: A198780 A198781 A198782 * A198784 A198785 A198786

Keyword

nonn,base

Author

Harvey P. Dale, Oct 29 2011

Status

approved