login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098653 Where A098650 reaches a record. 2

%I

%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

%N Where A098650 reaches a record.

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 12 04:27 EDT 2021. Contains 343810 sequences. (Running on oeis4.)