A127149 Records in A004648.

0, 1, 2, 3, 5, 9, 10, 11, 13, 14, 17, 22, 23, 31, 35, 37, 39, 41, 45, 55, 63, 65, 69, 71, 74, 79, 82, 83, 84, 86, 87, 89, 97, 102, 109, 111, 118, 122, 132, 134, 139, 142, 143, 152, 153, 156, 157, 164, 166, 169, 171, 181, 182, 183, 184, 185, 187, 193, 197, 203, 209, 217, 235, 245

Offset

1,3

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, Nothing], {k, 500}]] (* Paolo Xausa, Jul 29 2025 *)

Crossrefs

Cf. A004648, A127150.

Sequence in context: A100674 A058314 A072735 * A047606 A226826 A333607

Adjacent sequences: A127146 A127147 A127148 * A127150 A127151 A127152

Keyword

nonn

Author

N. J. A. Sloane, Mar 25 2007

Status

approved