A120856 Records in A034694.

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

Offset: 1

Author

Robert G. Wilson v, Jul 08 2006

Keywords

• nonn

Crossrefs

Cf. A034694, A120857.

Programs

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]]