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 A104941 #20 Feb 16 2025 08:32:57 %S A104941 2402431,5933593,8677267,7726777,6467093,6709369,6947063,2417399, %T A104941 7394279,4709491,9160087,5670853,8532331,1528621,7984793,7400299, %U A104941 2542151,5190587,3754139,1395491,1116851,4234877,1093997,3997361 %N A104941 Primes from merging of 7 successive digits in decimal expansion of the Euler-Mascheroni Constant. %H A104941 Vincenzo Librandi, <a href="/A104941/b104941.txt">Table of n, a(n) for n = 1..1000</a> %H A104941 Jon Borwein, <a href="https://web.archive.org/web/20060212094503/http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap35.html">170,000 digits of Gamma</a> [Wayback Machine copy] %H A104941 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Euler-MascheroniConstant.html">Euler-Mascheroni Constant</a>. %t A104941 egp[len_]:= Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 500][[1]], len, 1]}, Select[egterms, IntegerLength[#] == len&&PrimeQ[#]&]]; egp[7] (* _Vincenzo Librandi_, Apr 24 2013 *) %Y A104941 Cf. A001620. %K A104941 nonn,base %O A104941 1,1 %A A104941 Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005 %E A104941 Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 24 2013