login
A098653
Where A007535 reaches a record.
3
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,2
LINKS
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
CROSSREFS
Sequence in context: A265655 A001184 A370963 * A119433 A307227 A042351
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 19 2004
EXTENSIONS
Name corrected by Jinyuan Wang, Jul 24 2021
STATUS
approved