|
Search: id:A098653
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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: A106299 A101530 A001184 this_sequence A119433 A042351 A156880
Adjacent sequences: A098650 A098651 A098652 this_sequence A098654 A098655 A098656
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 19 2004
|
|
|
Search completed in 0.002 seconds
|
