%I #11 Jul 20 2020 06:41:26
%S 1,2,2,2,3,4,7,10,16,30,51,88,153,277,509,905,1660,3079,5535,10234,
%T 19053
%N Number of A080114-primes 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>
%F a(n) = A036378(n) - A095095(n).
%o (PARI) is(p) = {if(!isprime(p), return(0)); my(s=0); for(i=1, (p-1)/2, if((s+=kronecker(i, p))<0, return(0))); 1; }
%o a(n) = sum(p=2^n+1, 2^(n+1), is(p)); \\ _Jinyuan Wang_, Jul 20 2020
%Y Cf. A080114.
%K nonn,more
%O 1,2
%A _Antti Karttunen_, Jun 01 2004