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

Author

N. J. A. Sloane, Mar 25 2007

Keywords

• nonn

Links

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

Crossrefs

Cf. A004648, A127150.

Programs

Mathematica

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