cp's OEIS Frontend

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.

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

This page as a plain text file.
%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