A120857 Positions of records in A034694.

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

Offset: 1

Author

Robert G. Wilson v, Jul 08 2006

Keywords

• nonn

Links

• Daniel Mondot, Table of n, a(n) for n = 1..89

Crossrefs

Cf. A034694, A120856.

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)[[1]]

Extensions

Alois P. Heinz (Dec 18 2023) comments that a(90)= 1126291, a(100) = 2545019, a(111) = 10084901. - N. J. A. Sloane, Jan 22 2024