OFFSET
1,6
LINKS
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
KEYWORD
nonn,more
AUTHOR
Antti Karttunen, Jun 01 2004
STATUS
approved