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

Author

Harvey P. Dale, Oct 29 2011

Keywords

• nonn
• base

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.

Crossrefs

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

Programs

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