A127150 Where records occur in A004648.

1, 2, 3, 4, 9, 10, 19, 20, 22, 23, 24, 25, 26, 48, 54, 55, 56, 57, 62, 63, 67, 68, 70, 72, 127, 128, 129, 130, 131, 133, 134, 136, 138, 139, 140, 142, 147, 151, 155, 157, 158, 159, 162, 163, 166, 167, 168, 169, 173, 176, 178, 182, 187, 188, 189, 298, 300, 310, 311, 313, 320

Offset

1,2

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Mathematica

Module[{r = -1, v}, Table[If[(v = Mod[Prime[k], k]) > r, r = v; k, Nothing], {k, 500}]] (* Paolo Xausa, Jul 29 2025 *)

Crossrefs

Cf. A004648, A127149.

Sequence in context: A128944 A295969 A174437 * A256189 A098548 A076963

Adjacent sequences: A127147 A127148 A127149 * A127151 A127152 A127153

Keyword

nonn

Author

N. J. A. Sloane, Mar 25 2007

Status

approved