|
%I #12 Jul 24 2017 02:03:33
%S 0,1,0,2,1,4,6,12,17,36,62,118,222,395,773,1412,2699,5100,9690,18384,
%T 35074,67076,128446,246483,473737,911126,1757021,3390639,6551367,
%U 12675525,24545392,47584301,92330675
%N Number of 8k+7 primes (A007522) 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] + 7, PrimeQ]; Table[Count[s, _?(2^n < # < 2^(n + 1) &)], {n, nn}]] (* _Michael De Vlieger_, Jul 23 2017 *)
%Y a(n) = A095013(n)-A095009(n). Cf. A091129.
%K nonn
%O 1,4
%A _Antti Karttunen_ and _Labos Elemer_, Jun 01 2004
|
