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 A197062 #15 Sep 03 2025 01:34:22
%S A197062 3,8,13,17,31,32,50,55,75,91,98,100,105,129,162,183,241,288,311,334,
%T A197062 381,392,413,489,553,578,615,651,670,722,726,741,844,968,1013,1152,
%U A197062 1164,1261,1264,1461,1561,1601,1682,1800,1809,1905,1979,2048,2225,2312,2450
%N A197062 Successive records in A152676.
%C A197062 On plot picture of A152676 is easy to see that all points occurred between some upper and lower limit curve. Numbers in this sequence are the nearest upper limit curve.
%t A197062 aa = {}; max = 0; Do[If[Mod[Prime[n], 4] == 1, k = 1; While[! Mod[k^2 + 1, Prime[n]] == 0, k++]; If[Prime[n] - k > max, max = Prime[n] - k; AppendTo[aa, Prime[n] - k]]], {n, 1, 1000}]; aa
%Y A197062 Cf. A002144, A002314, A152676, A152680.
%K A197062 nonn,changed
%O A197062 1,1
%A A197062 _Artur Jasinski_, Oct 09 2011