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 A385636 #26 Jul 18 2025 05:44:50
%S A385636 0,1,2,60,61,62,200,417,2687,1536009,57157270,81436635,143005063,
%T A385636 706132910,2016118929
%N A385636 Numbers k where sin(sqrt(k)) reaches successive record high values.
%C A385636 Each record value is ever closer to 1, but never reaches 1 since Pi is not algebraic.
%e A385636 n sin(sqrt(n))
%e A385636 0 0.00000000000000000000000000000000000000
%e A385636 1 0.84147098480789650665250232163029899962
%e A385636 2 0.98776594599273552706913407207894265590
%e A385636 60 0.99417205583623141588832072787265937649
%e A385636 61 0.99904391031188045397420593007730566087
%e A385636 62 0.99979948155661636906716009313812999866
%e A385636 200 0.99998765612212040379361805662023274661
%e A385636 417 0.99999997455044116794629686048124083679
%e A385636 2687 0.99999999999810547903298251324014875470
%e A385636 1536009 0.99999999999999044600166587966774547198
%e A385636 57157270 0.99999999999999422252795052032516595669
%e A385636 81436635 0.99999999999999964054666338696864815400
%e A385636 143005063 0.99999999999999999572901646060974247156
%e A385636 706132910 0.99999999999999999879205185535546721950
%e A385636 2016118929 0.99999999999999999996673765988843841836
%t A385636 max = -2; aa = {}; Do[kk = N[Sin[Sqrt[n]], 50]; If[kk > max, max = kk; Print[{n, kk}]; AppendTo[aa, n]], {n, 0, 150000000}]; aa
%Y A385636 Cf. A046959, A046964, A046965.
%K A385636 nonn,more
%O A385636 1,3
%A A385636 _Artur Jasinski_, Jul 05 2025
%E A385636 a(14)-a(15) from _David Consiglio, Jr._, Jul 14 2025