A095093 Number of 4k+3 primes whose Legendre-vector is not Dyck-path (A095103) in range ]2^n,2^(n+1)].

0, 0, 0, 1, 1, 3, 6, 12, 21, 41, 77, 143, 287, 530, 1010, 1967, 3711, 7125, 13806, 26525, 51126

Offset

1,6

Links

Table of n, a(n) for n=1..21.

A. Karttunen and J. Moyer, C-program for computing the initial terms of this sequence

Index entries for sequences related to occurrences of various subsets of primes in range ]2^n,2^(n+1)]

Formula

a(n) = A095008(n) - A095092(n).

Prog

(PARI) is(m) = {my(s=0); if(isprime(m), for(i=1, m-1, if((s+=kronecker(i, m))<0, return(1)))); 0; }
a(n) = {my(c=0); forstep(m=2^n+3, 2^(n+1), 4, c+=is(m)); c; } \\ Jinyuan Wang, Jul 20 2020

Crossrefs

Cf. A095103.

Sequence in context: A092176 A000991 A345028 * A280473 A333820 A139422

Adjacent sequences: A095090 A095091 A095092 * A095094 A095095 A095096

Keyword

nonn,more

Author

Antti Karttunen, Jun 01 2004

Status

approved