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

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, A127149.

Programs

Mathematica

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