%I #11 Aug 26 2018 20:14:54

%S 2,1,3,2,3,3,1,3,3,2,1,5,1,2,3,3,3,3,1,3,2,9,1,2,1,2,1,5,1,5,1,5,1,3,

%T 3,2,6,3,1,3,2,4,2,7,2,1,3,2,4,2,1,9,2,1,2,4,3,2,3,4,2,1,2,6,1,2,3,1,

%U 3,5,4,3,6,2,6,1,3,3,2,3,1,3,3,2,6,3,4,2,1,5,1,3,3,5,1,2,1,2,3

%N First differences of A304360.

%C Always positive (see A304360).

%H Robert Israel, <a href="/A317963/b317963.txt">Table of n, a(n) for n = 1..10000</a>

%p A304360:= NULL: count:= 0:

%p P:= {}:

%p for n from 2 while count < 201 do

%p pn:= numtheory:-factorset(n);

%p if pn intersect P = {} then

%p count:= count+1;

%p A304360:= A304360, n;

%p P:= P union {ithprime(n)};

%p fi

%p od:

%p A304360:= [A304360]:

%p A304360[2..-1]-A304360[1..-2]; # _Robert Israel_, Aug 26 2018

%Y Cf. A304360.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Aug 26 2018

%E More terms from _Robert Israel_, Aug 26 2018