%I #12 Jul 24 2017 02:03:25
%S 0,1,1,1,3,2,6,11,20,35,63,118,216,407,759,1424,2686,5094,9652,18472,
%T 35068,67068,128421,246403,473647,911479,1757076,3390256,6552075,
%U 12675294,24545280,47583568,92332958
%N Number of 8k+5 primes (A007521) in range ]2^n,2^(n+1)].
%H A. Karttunen and J. Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>
%H <a href="/index/Pri#primesubsetpop2">Index entries for sequences related to occurrences of various subsets of primes in range ]2^n,2^(n+1)]</a>
%t Module[{nn = 21, s}, s = Select[8 Range[0, 2^nn] + 5, PrimeQ]; Table[Count[s, _?(2^n < # < 2^(n + 1) &)], {n, nn}]] (* _Michael De Vlieger_, Jul 23 2017 *)
%Y a(n) = A095014(n)-A095010(n). Cf. A091128.
%K nonn
%O 1,5
%A _Antti Karttunen_ and _Labos Elemer_, Jun 01 2004
|