%I #12 Aug 24 2015 15:23:20
%S 1,2,3,4,5,10,11
%N Numbers n that begin a sequence of 100 consecutive integers (n, n+1, ..., n+99) containing at least 25 primes.
%C For n=2 the sequence contains the maximum number of primes (26).
%e There are 25 primes between a(3)=3 and a(3) + 99 = 102.
%t Select[Range[1,30],PrimePi[#+99]-PrimePi[#-1]>24&]
%t (* _Robert G. Wilson v_, Aug 07 2015 *)
%Y Cf. A000040, A000720.
%K nonn,fini,full
%O 1,2
%A _Marco RipĂ _, Aug 07 2015