This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A120856 #2 Mar 30 2012 17:31:20
%S A120856 2,3,7,11,29,53,103,191,311,331,709,1021,1091,1597,3181,3547,5449,
%T A120856 8243,10831,11621,13711,16673,17579,18899,32191,37217,62207,71023,
%U A120856 74441,87869,94439,94789,96353,114013,115499,171167,229981,437389,457981
%N A120856 Records in A034694.
%t A120856 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 A120856 Cf. A034694, A120857.
%K A120856 nonn
%O A120856 1,1
%A A120856 _Robert G. Wilson v_, Jul 08 2006