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 A247515 #12 Oct 24 2023 05:17:19
%S A247515 2,4,6,9,11,14,15,17,18,21,22,25,30,33,34,37,38,39,43,44,47,48,53,54,
%T A247515 59,60,61,63,64,65,66,69,70,71,72,76,77,78,82,83,84,85,90,91,92,97,98,
%U A247515 99,102,103,104,105,110,111,112,113,114,119,120,121,122,127
%N A247515 Numbers k such that 2*floor(sqrt(prime(k))) < floor(2*sqrt(prime(k))).
%C A247515 A117767(a(n)) < A247485(a(n)); complement of A247514.
%H A247515 Reinhard Zumkeller, <a href="/A247515/b247515.txt">Table of n, a(n) for n = 1..10000</a>
%t A247515 A247515Q[k_]:=With[{r=Sqrt[Prime[k]]},2Floor[r]<Floor[2r]];
%t A247515 Select[Range[200],A247515Q] (* _Paolo Xausa_, Oct 23 2023 *)
%o A247515 (Haskell)
%o A247515 a247515 n = a247515_list !! (n-1)
%o A247515 a247515_list = filter (\x -> a117767 x < a247485 x) [1..]
%Y A247515 Cf. A117767, A247485, A000196, A000040, A000006, A247514.
%K A247515 nonn
%O A247515 1,1
%A A247515 _Reinhard Zumkeller_, Sep 20 2014