|
%I #8 Jun 12 2016 12:16:24
%S 10,26,33,35,49,57,69,88,90,96,136,142,160,178,198,201,206,209,215,
%T 216,253,262,265,276,302,323,328,346,348,377,380,395,398,458,459,469,
%U 473,501,504,513,516,528,542,544,545,551,568,579,581,586,640,644,671,681
%N Numbers n such that prime(n+1)-prime(n)=bigomega(n).
%H Harvey P. Dale, <a href="/A067264/b067264.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) seems to be asymptotic to c*n*log(n) with c=2.2...
%t Select[Range[800],Prime[#+1]-Prime[#]==PrimeOmega[#]&] (* _Harvey P. Dale_, Jun 12 2016 *)
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 21 2002
|
