A098653 Where A007535 reaches a record.

1, 2, 105, 162, 210, 238, 348, 600, 646, 765, 1092, 1575, 2590, 2688, 2751, 2873, 3135, 3252, 3946, 4095, 4431, 4457, 4655, 5159, 5520, 6006, 6855, 7203, 7252, 8190, 9240, 10425, 12820, 14217, 15015, 15925, 17136, 18340, 21060, 22270, 23310, 24791, 25792, 28067

Offset: 1

Author

Robert G. Wilson v, Sep 19 2004

Keywords

• nonn

Links

• Jinyuan Wang, Table of n, a(n) for n = 1..432

Crossrefs

Cf. A007535, A098654.

Programs

Mathematica

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

Extensions

Name corrected by Jinyuan Wang, Jul 24 2021