OFFSET
1,3
LINKS
A. Karttunen and J. Moyer, C-program for computing the initial terms of this sequence
FORMULA
a(n) = 2^(n-2) - A095091(n) for n > 1.
PROG
(PARI) is(m) = {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 and Jun 01 2004
STATUS
approved