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