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