login
a(n) is the smallest number k for which prime(k+1) - prime(k) is greater than n.
0

%I #22 Dec 06 2022 02:52:00

%S 2,4,4,9,9,24,24,30,30,30,30,30,30,99,99,99,99,154,154,189,189,217,

%T 217,217,217,217,217,217,217,217,217,217,217,1183,1183,1831,1831,1831,

%U 1831,1831,1831,1831,1831,2225,2225,2225,2225,2225,2225,2225,2225,3385,3385,3385,3385

%N a(n) is the smallest number k for which prime(k+1) - prime(k) is greater than n.

%C For any n there is an infinity of numbers m for which prime(m+1) - prime(m) is greater than n.

%C It appears that the sequence of lengths of successive runs is equal to A053695. - _Marc Bofill Janer_, May 21 2019

%D Laurențiu Panaitopol, Dinu Șerbănescu, Number theory and combinatorial problems for juniors, Ed.Gil, Zalău, (2003), ch. 1, p.7, pr. 25. (in Romanian).

%F a(2*n) = a(2*n+1) = A144309(n+1) for n>=1. - _Georg Fischer_, Dec 05 2022

%e For n = 2, prime(2) - prime(1) = 3 - 2 = 1, prime(3) - prime(2) = 5 - 3 = 2, prime(5) - prime(4) = 11 - 7 = 4, so a(2) = 4.

%o (MATLAB) v=primes(1000000);

%o for u=1:100; ss=1;

%o while and(v(ss+1)-v(ss)<=u,ss<length(v)-1); ss=ss+1;end;

%o sol(u)=ss;

%o end

%o sol

%o (Magma) v:=PrimesUpTo(10000000);

%o sol:=[];

%o for u in [1..60] do

%o for ss in [1..#v-1] do

%o if v[ss+1]-v[ss] gt u then

%o sol[u]:=ss;

%o break;

%o end if;

%o end for;

%o end for;

%o sol;

%o (PARI) a(n) = my(k=1); while(prime(k+1) - prime(k) <= n, k++); k; \\ _Michel Marcus_, Apr 03 2019

%Y Cf. A000040, A001223, A005250, A005669.

%Y Cf. A053695, A144309.

%K nonn

%O 1,1

%A _Marius A. Burtea_, Apr 02 2019