This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A198783 #18 Jun 03 2021 19:13:49 %S A198783 215664901,593359399,235988057,362241739,739976449,33374293,337429373, %T A198783 733773767,87352039,670853233,146694029,151905877,267331399,413954911, %U A198783 984234877,384310939,310939973,93997361,939973613,306088933,60889331,759271351,549570661,789358679 %N A198783 Primes from merging of 9 successive digits in decimal expansion of Euler-Mascheroni constant. %C A198783 In contrast to A104943, leading zeros are permitted, so this sequence contains all terms of A104943 and additional primes with fewer than 9 digits. %p A198783 Digits := 620 ; %p A198783 for sh from 8 do %p A198783 p := floor(gamma*10^sh) mod 1000000000 ; %p A198783 if isprime(p) then %p A198783 printf("%d,",p); %p A198783 end if; %p A198783 end do: # _R. J. Mathar_, Oct 31 2011 %t A198783 Select[FromDigits/@Partition[RealDigits[EulerGamma,10,520][[1]],9,1],PrimeQ] (* _Harvey P. Dale_, Jun 03 2021 *) %Y A198783 Cf. A103773, A103789, A103793, A103808-A103812, A104824-A104826, A104843-A104850, A198161-A198177, A198776-A198784. %K A198783 nonn,base %O A198783 1,1 %A A198783 _Harvey P. Dale_, Oct 29 2011