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,3

Comments

Range of the sequence A272633.

Links

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

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 *)

Prog

(PARI) Set(A272633(nMax=200))

Crossrefs

Cf. A272633.

Sequence in context: A191190 A191133 A050053 * A084591 A088758 A105176

Adjacent sequences: A272631 A272632 A272633 * A272635 A272636 A272637

Keyword

nonn

Author

M. F. Hasler, May 04 2016

Status

approved