|
%I #28 May 07 2012 02:42:44
%S 2,3,5,7,13,23,31,113,1327,31397,370261,492113,2010733,20831323,
%T 25056082087,42652618343,2614941710599,19581334192423
%N Primes prime(n) such that prime(n+1) - prime(n) > log(n)^2.
%C Using terms of A002386, a(19) is probably 218209405436543. - _T. D. Noe_, Apr 24 2012
%t t = {}; Do[If[Prime[n + 1] - Prime[n] > Log[n]^2, AppendTo[t, Prime[n]]], {n, 10000}]; t (* _T. D. Noe_, Apr 24 2012 *)
%o (PARI) n=0;G=1;p=2;forprime(q=3,1e8,n++;if(q-p>=G&&q-p>log(n)^2, G=ceil(log(n)^2);print1(p", "));p=q) \\ _Charles R Greathouse IV_, Apr 24 2012
%Y Subsequence of A211073.
%Y Cf. A002386, A134266.
%K nonn,hard,more
%O 1,1
%A _Thomas Ordowski_, Apr 24 2012
%E a(13)-a(16) from _Charles R Greathouse IV_, Apr 24 2012
%E a(17) from _Charles R Greathouse IV_, Apr 26 2012
%E a(18) from _Charles R Greathouse IV_, May 06 2012
|
