A272634 Discriminators of the primes (A272633), without duplicates.

0, 1, 2, 4, 6, 7, 13, 19, 23, 31, 33, 37, 43, 47, 49, 53, 55, 61, 63, 67, 73, 75, 79, 83, 89, 91, 97, 103, 109, 113, 115, 117, 119, 121, 139, 141, 151, 153, 157, 159, 167, 169, 175, 181, 183, 187, 193, 199, 201, 205, 211, 217, 219, 223, 229, 233, 235, 243, 245, 251, 257, 263, 283, 285, 289, 301, 303, 307, 313, 317

Offset: 1

Author

M. F. Hasler, May 04 2016

Keywords

• nonn

Comments

Range of the sequence A272633.

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..5566

Crossrefs

Cf. A272633.

Programs

Mathematica

{0}~Join~Union@ Table[SelectFirst[Range[10^3], Function[m, Length@ Union@ # == Length@ # &@ Mod[Prime@ Range@ n, m]]], {n, 120}] (* Michael De Vlieger, May 04 2016, Version 10 *)

PARI

Set(A272633(nMax=200))