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 A098653 #9 Jul 24 2021 13:30:45
%S A098653 1,2,105,162,210,238,348,600,646,765,1092,1575,2590,2688,2751,2873,
%T A098653 3135,3252,3946,4095,4431,4457,4655,5159,5520,6006,6855,7203,7252,
%U A098653 8190,9240,10425,12820,14217,15015,15925,17136,18340,21060,22270,23310,24791,25792,28067
%N A098653 Where A007535 reaches a record.
%H A098653 Jinyuan Wang, <a href="/A098653/b098653.txt">Table of n, a(n) for n = 1..432</a>
%t A098653 f[n_] := Block[{k = n + 1}, While[ PrimeQ[k] || PowerMod[n, k - 1, k] != 1, k++ ]; k]; a = {1}; b = {4}; Do[c = f[n]; If[c > b[[ -1]], AppendTo[a, n]; AppendTo[b, c]; Print[{n, c}]], {n, 2, 25000}]; a
%Y A098653 Cf. A007535, A098654.
%K A098653 nonn
%O A098653 1,2
%A A098653 _Robert G. Wilson v_, Sep 19 2004
%E A098653 Name corrected by _Jinyuan Wang_, Jul 24 2021