|
| |
|
|
A098653
|
|
Where A098650 reaches a record.
|
|
2
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..42.
|
|
|
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
|
Cf. A007535, A098654.
Sequence in context: A199945 A265655 A001184 * A119433 A307227 A042351
Adjacent sequences: A098650 A098651 A098652 * A098654 A098655 A098656
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Robert G. Wilson v, Sep 19 2004
|
|
|
STATUS
|
approved
|
| |
|
|
