OFFSET
0,35
COMMENTS
LINKS
R. Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
z[0] = 0; z[n_] := z[n] = z[Floor[n/2]]*I + Mod[n, 2]; Table[z[n] // Im, {n, 0, 120}] (* Jean-François Alcover, Mar 02 2019 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Reinhard Zumkeller, Jul 22 2007
STATUS
approved