The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #10 May 04 2016 19:26:59
%S 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,
%T 91,97,103,109,113,115,117,119,121,139,141,151,153,157,159,167,169,
%U 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
%N Discriminators of the primes (A272633), without duplicates.
%C Range of the sequence A272633.
%H Alois P. Heinz, <a href="/A272634/b272634.txt">Table of n, a(n) for n = 1..5566</a>
%t {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 *)
%o (PARI) Set(A272633(nMax=200))
%Y Cf. A272633.
%K nonn
%O 1,3
%A _M. F. Hasler_, May 04 2016