OFFSET
1,4
LINKS
PROG
(PARI) is(m) = {if(!isprime(m), return(0)); my(s=0); for(i=1, m-1, if((s+=kronecker(i, m))<0, return(0))); 1; }
a(n) = {my(c=0); forstep(m=2^n+3*(n>1), 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