%I #2 Mar 30 2012 17:31:20
%S 2,3,7,11,29,53,103,191,311,331,709,1021,1091,1597,3181,3547,5449,
%T 8243,10831,11621,13711,16673,17579,18899,32191,37217,62207,71023,
%U 74441,87869,94439,94789,96353,114013,115499,171167,229981,437389,457981
%N Records in A034694.
%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)[[2]]
%Y Cf. A034694, A120857.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 08 2006