cp's OEIS Frontend

A317963 First differences of A304360.

%I A317963 #11 Aug 26 2018 20:14:54
%S A317963 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 A317963 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 A317963 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 A317963 First differences of A304360.
%C A317963 Always positive (see A304360).
%H A317963 Robert Israel, <a href="/A317963/b317963.txt">Table of n, a(n) for n = 1..10000</a>
%p A317963 A304360:= NULL: count:= 0:
%p A317963 P:= {}:
%p A317963 for n  from 2 while count < 201 do
%p A317963   pn:= numtheory:-factorset(n);
%p A317963   if pn intersect P = {} then
%p A317963     count:= count+1;
%p A317963     A304360:= A304360, n;
%p A317963     P:= P union {ithprime(n)};
%p A317963   fi
%p A317963 od:
%p A317963 A304360:= [A304360]:
%p A317963 A304360[2..-1]-A304360[1..-2]; # _Robert Israel_, Aug 26 2018
%Y A317963 Cf. A304360.
%K A317963 nonn
%O A317963 1,1
%A A317963 _N. J. A. Sloane_, Aug 26 2018
%E A317963 More terms from _Robert Israel_, Aug 26 2018