|
%I #60 Jan 08 2018 02:41:43
%S 2,59,71,29,59,149,191,641,149,347,809,461,3371,1487,857,1301,1877,
%T 5849,4721,9239,4271,1619,1481,20507,20981,32117,13337,19379,24977,
%U 48779,20441,25301,5651,37991,17747,43577,176777,145757,191249,84809,150209,11717
%N Least n-gap prime: a(n) = least prime p for which there is no prime between n*p and n*q, where q is the next prime after p.
%C Such a prime always exists.
%C The sequence is unbounded.
%C Conjecture. For n >= 2, a(n) is a lesser of twin primes (A001359). This implies the twin prime conjecture. - _Vladimir Shevelev_, Sep 15 2011
%C If a member of this sequence is not the lesser of a twin prime pair, it is greater than 10^10. - _Charles R Greathouse IV_, Sep 15 2011
%C A dual sequence: b(n)= least prime p for which there is no prime between n*q and n*p, where q is the previous prime before p. Evidently, b(n) is the next prime after a(n): 3,61,73,31,..., and for n>=2, by the same conjecture, b(n) is a greater of twin primes.
%H Charles R Greathouse IV, <a href="/A195325/b195325.txt">Table of n, a(n) for n = 1..169</a>, (first 100 terms from Alois P. Heinz)
%p a:= proc(n) local p, q;
%p p:= 2; q:= nextprime(p);
%p while nextprime(n*p) < (n*q) do
%p p, q:= q, nextprime(q)
%p od; p
%p end:
%p seq (a(n), n=1..25); # _Alois P. Heinz_, Sep 15 2011
%t pQ[p_, r_] := Block[{q = NextPrime[p]},NextPrime[r*p]> r*q]; f[n_] := Block[{p = 2}, While[ !pQ[p, n], p = NextPrime[p]]; p]; f[1] = 2; Array[f, 42] (* _Robert G. Wilson v_, Sep 18 2011 *) (* Revised by _Zak Seidov_, Sep 19 2011 *)
%Y Cf. A080192, A195270, A195271, A164368, A194658, A164294, A110835, A195465.
%K nonn
%O 1,1
%A _Vladimir Shevelev_, Sep 15 2011
|
