|
|
A095094
|
|
Number of A080114-primes in range ]2^n,2^(n+1)].
|
|
2
|
|
|
1, 2, 2, 2, 3, 4, 7, 10, 16, 30, 51, 88, 153, 277, 509, 905, 1660, 3079, 5535, 10234, 19053
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(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; }
a(n) = sum(p=2^n+1, 2^(n+1), is(p)); \\ Jinyuan Wang, Jul 20 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|