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,1

Links

Table of n, a(n) for n=1..39.

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: A227885 A096362 A005479 * A138000 A322118 A349420

Adjacent sequences: A120853 A120854 A120855 * A120857 A120858 A120859

Keyword

nonn

Author

Robert G. Wilson v, Jul 08 2006

Status

approved