A120857 - OEIS

%I #19 Jan 22 2024 06:18:39

%S 1,2,3,5,7,13,17,19,31,55,59,85,109,133,159,197,227,317,361,415,457,

%T 521,799,859,1073,1163,1637,1691,1861,1997,2053,2633,3011,3167,3397,

%U 3721,3833,5207,7633,9199,11603,13469,13549,14099,16103,17483,17693,18113

%N Positions of records in A034694.

%H Daniel Mondot, <a href="/A120857/b120857.txt">Table of n, a(n) for n = 1..89</a>

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

%Y Cf. A034694, A120856.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Jul 08 2006

%E _Alois P. Heinz_ (Dec 18 2023) comments that a(90)= 1126291, a(100) = 2545019, a(111) = 10084901. - _N. J. A. Sloane_, Jan 22 2024