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 A109563 #14 Apr 06 2022 11:48:26
%S A109563 113,523,887,1129,1951,2179,5531,5953,8971,10009,10399,10531,10909,
%T A109563 13063,13187,13933,13967,14251,14983,16381,16573,17627,18553,18869,
%U A109563 27701,27851,29683,32653,34549,37747,40387,41299,42863,45083,45197,46771,46957,47743,47981,49957
%N A109563 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 9.
%t A109563 a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 9, Prime[n], {}], {n, 1, 2000}]]
%Y A109563 Cf. A000040, A000720, A001359.
%Y A109563 Cf. A109556-A109569 for m = 2..15.
%K A109563 nonn,less
%O A109563 1,1
%A A109563 _Roger L. Bagula_, Jun 27 2005
%E A109563 Definition amended, offset changed and more terms from _Georg Fischer_, Apr 06 2022