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

Links

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

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: A183073 A123856 A336721 * A233516 A366029 A000043

Adjacent sequences: A120854 A120855 A120856 * A120858 A120859 A120860

Keyword

nonn

Author

Robert G. Wilson v, Jul 08 2006

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

Status

approved