login
Number of A080115-primes in range [2^n,2^(n+1)].
2

%I #12 Jan 25 2023 18:00:14

%S 0,0,0,3,4,9,16,33,59,107,204,376,719,1335,2521,4804,9089,17311,33100,

%T 63352,121283

%N Number of A080115-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) - A095094(n).

%o (PARI) is(p) = {my(s=0); if(isprime(p), for(i=1, (p-1)/2, if((s+=kronecker(i, p))<0, return(1)))); 0; }

%o a(n) = sum(p=2^n+1, 2^(n+1), is(p)); \\ _Jinyuan Wang_, Jul 20 2020

%Y Cf. A080115.

%K nonn,more

%O 1,4

%A _Antti Karttunen_, Jun 01 2004