A098654 Records in A007535.

4, 341, 451, 481, 671, 703, 1105, 1111, 1333, 1729, 2465, 3277, 3281, 3721, 3775, 4681, 4753, 5461, 5611, 5963, 6031, 6601, 6981, 7107, 8149, 8695, 8911, 9005, 9637, 12673, 14701, 14981, 15841, 18721, 22177, 23001, 24211, 28939, 29089, 29341, 29503, 29891, 31621

Offset

1,1

Links

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

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, 10^6}]; b

Crossrefs

Cf. A007535, A098653.

Sequence in context: A090086 A007535 A000783 * A317058 A317357 A069884

Adjacent sequences: A098651 A098652 A098653 * A098655 A098656 A098657

Keyword

nonn

Author

Robert G. Wilson v, Sep 19 2004

Extensions

Name corrected by Jinyuan Wang, Jul 24 2021

Status

approved