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 A109560 #5 Jun 03 2025 01:08:23
%S A109560 89,139,181,241,467,509,619,773,839,863,953,1409,1831,1847,1933,2113,
%T A109560 2221,2251,2593,2803,2861,3121,3373,3391,3433,3643,3803,3889,4159,
%U A109560 4373,4423,4463,4603,4703,4733,5059,5209,5483,5987,6011,6229,6451,6529,6581,6619,6803
%N A109560 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 6.
%t A109560 a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 6, Prime[n], {}], {n, 1, 400}]]
%Y A109560 Cf. A000040, A000720, A001359.
%Y A109560 Cf. A109556-A109569 for m = 2..15.
%K A109560 nonn,less
%O A109560 1,1
%A A109560 _Roger L. Bagula_, Jun 27 2005
%E A109560 Name edited, offset corrected and more terms added by _Amiram Eldar_, Jun 02 2025