|
Search: id:A120857
|
|
| |
|
| 1, 2, 3, 5, 7, 13, 17, 19, 31, 55, 59, 85, 109, 133, 159, 197, 227, 317, 361, 415, 457, 521, 799, 859, 1073, 1163, 1637, 1691, 1861, 1997, 2053, 2633, 3011, 3167, 3397, 3721, 3833, 5207, 7633, 9199, 11603, 13469, 13549, 14099, 16103, 17483, 17693, 18113
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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)[[1]]
|
|
CROSSREFS
|
Cf. A034694, A120856.
Sequence in context: A038903 A136003 A123856 this_sequence A000043 A109799 A109461
Adjacent sequences: A120854 A120855 A120856 this_sequence A120858 A120859 A120860
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 08 2006
|
|
|
Search completed in 0.002 seconds
|
