This site is supported by donations to The OEIS Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 19 17:45 EST 2019. Contains 319309 sequences. (Running on oeis4.)