A120857 - OEIS

A120857

Positions of records in A034694.

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

Daniel Mondot, Table of n, a(n) for n = 1..89

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: A183073 A123856 A336721 * A233516 A366029 A000043

Adjacent sequences: A120854 A120855 A120856 * A120858 A120859 A120860

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Jul 08 2006

EXTENSIONS

Alois P. Heinz (Dec 18 2023) comments that a(90)= 1126291, a(100) = 2545019, a(111) = 10084901. - N. J. A. Sloane, Jan 22 2024

STATUS

approved

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.