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 A109564 #5 Jun 03 2025 01:08:12
%S A109564 1669,2477,2971,3137,3271,4297,4831,5119,5351,5749,6491,6917,7253,
%T A109564 7759,7963,8389,8893,10799,11743,12163,17257,18803,19087,20443,21433,
%U A109564 22193,22307,22817,24281,27143,28351,29881,30593,32261,38393,39461,45013,45779,48907,49559
%N A109564 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 10.
%t A109564 a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 10, Prime[n], {}], {n, 1, 2000}]]
%Y A109564 Cf. A000040, A000720, A001359.
%Y A109564 Cf. A109556-A109569 for m = 2..15.
%K A109564 nonn,less
%O A109564 1,1
%A A109564 _Roger L. Bagula_, Jun 27 2005
%E A109564 Name edited, offset corrected and more terms added by _Amiram Eldar_, Jun 02 2025