|
Search: id:A120856
|
|
| |
|
| 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; listen)
|
|
|
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.
Adjacent sequences: A120853 A120854 A120855 this_sequence A120857 A120858 A120859
Sequence in context: A014981 A096362 A005479 this_sequence A138000 A034295 A056354
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 08 2006
|
|
|
Search completed in 0.002 seconds
|
