

A120857


Positions of records in A034694.


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..48.


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: A237057 A183073 A123856 * A233516 A000043 A109799
Adjacent sequences: A120854 A120855 A120856 * A120858 A120859 A120860


KEYWORD

nonn


AUTHOR

Robert G. Wilson v, Jul 08 2006


STATUS

approved



