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 A120857 #19 Jan 22 2024 06:18:39
%S A120857 1,2,3,5,7,13,17,19,31,55,59,85,109,133,159,197,227,317,361,415,457,
%T A120857 521,799,859,1073,1163,1637,1691,1861,1997,2053,2633,3011,3167,3397,
%U A120857 3721,3833,5207,7633,9199,11603,13469,13549,14099,16103,17483,17693,18113
%N A120857 Positions of records in A034694.
%H A120857 Daniel Mondot, <a href="/A120857/b120857.txt">Table of n, a(n) for n = 1..89</a>
%t A120857 f[n_] := Block[{k = 1}, If[n == 1, 2, While[ Mod[Prime@k, n] != 1, k++ ]; Prime@k]]; lst = {}; a = 1; Do[b = f@n; If[b > a, a = b; AppendTo[lst, {n, a}]; Print@{n, a}], {n, 18200}]; (Transpose@lst)[[1]]
%Y A120857 Cf. A034694, A120856.
%K A120857 nonn
%O A120857 1,2
%A A120857 _Robert G. Wilson v_, Jul 08 2006
%E A120857 _Alois P. Heinz_ (Dec 18 2023) comments that a(90)= 1126291, a(100) = 2545019, a(111) = 10084901. - _N. J. A. Sloane_, Jan 22 2024