|
| |
| |
|
|
|
2, 3, 7, 11, 29, 53, 103, 191, 311, 331, 709, 1021, 1091, 1597, 3181, 3547, 5449, 8243, 10831, 11621, 13711, 16673, 17579, 18899, 32191, 37217, 62207, 71023, 74441, 87869, 94439, 94789, 96353, 114013, 115499, 171167, 229981, 437389, 457981
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| f[n_] := Block[{k = 1}, If[n == 1, 2, While[ Mod[Prime@k, n] != 1, k++ ]; Prime@k]]; lst = {}; a = 1; Do[b = f@n; If[b > a, a = b; AppendTo[lst, {n, a}]; Print@{n, a}], {n, 18200}]; (Transpose@lst)[[2]]
|
|
|
CROSSREFS
| Cf. A034694, A120857.
Sequence in context: A014981 A096362 A005479 * A138000 A034295 A140108
Adjacent sequences: A120853 A120854 A120855 * A120857 A120858 A120859
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 08 2006
|
| |
|
|
