cp's OEIS Frontend

A273062 Discriminator of the composite numbers A002808.

%I A273062 #12 Jul 14 2023 01:49:22
%S A273062 1,3,3,6,7,7,7,12,13,13,13,18,19,19,22,23,24,25,25,25,30,31,32,33,33,
%T A273062 36,37,37,37,42,43,43,46,47,48,49,49,52,53,54,55,55,55,60,61,62,63,63,
%U A273062 66,67,67,67,72,73,74,75,75,78,79,79,82,83,84,85,85,88,89,90,91,92,93,93,96,97,97,97,102,103,103,103,108,109,109,112,113
%N A273062 Discriminator of the composite numbers A002808.
%C A273062 The discriminator of a sequence is the least integer k such that the first n terms are pairwise incongruent, modulo k.
%H A273062 Robert Israel, <a href="/A273062/b273062.txt">Table of n, a(n) for n = 1..10000</a>
%p A273062 R:= 1: y:= 1: C:= remove(isprime, [$1..200]):
%p A273062 for n from 2 to nops(C) do
%p A273062    do
%p A273062      S:= convert(C[1..n] mod y, set);
%p A273062      if nops(S) = n then break fi;
%p A273062      y:= y+1;
%p A273062    od;
%p A273062    R:= R,y;
%p A273062 od:
%p A273062 R; # _Robert Israel_, Jul 13 2023
%Y A273062 Cf. A002808.
%K A273062 nonn
%O A273062 1,2
%A A273062 _Jeffrey Shallit_, May 14 2016