OFFSET
0,4
FORMULA
a(2^n) = 1.
a(2^n-1) = A028310(n).
EXAMPLE
a(12) = 2, because 12 = 16-4 = 32-16-8+4.
PROG
(PARI) a364144(upto) = {my (a=vector(upto)); for (k=1, 3^floor(3*log(upto)), my (w=digits(k, 3), n); w=apply(x->x-1, w); if (w[1] && vecsum(w)==0, my (n=fromdigits(w, b=2)); if (n>0 && n<=#a, a[n]++))); concat(1, a)};
a364144(70) \\ Hugo Pfoertner, Jul 11 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jeffrey Shallit, Jul 10 2023
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, Jul 10 2023
STATUS
approved
