OFFSET
0,9
COMMENTS
See A318702 for the real part of f and additional comments.
LINKS
FORMULA
MATHEMATICA
Array[Im[Total@ MapIndexed[#1*I^(First@ #2 - 1)*2^Floor[(First@ #2 - 1)/2] &, Reverse@ IntegerDigits[#, 2]]] &, 75, 0] (* Michael De Vlieger, Sep 02 2018 *)
PROG
(PARI) a(n) = my (b=Vecrev(binary(n))); imag(sum(k=1, #b, b[k] * I^(k-1) * 2^floor((k-1)/2)))
CROSSREFS
KEYWORD
sign,base
AUTHOR
Rémy Sigrist, Sep 01 2018
STATUS
approved