OFFSET
0,1
PROG
(PARI) r=Pi/4; for(k=0, 99, if(abs(r)<1/2, d=0, d=sign(r)); r=2*(r-d); print1(d, ", "))
CROSSREFS
KEYWORD
base,sign
AUTHOR
Jaume Oliver Lafont, Jan 23 2009
EXTENSIONS
Corrected and cross-reference added by Jaume Oliver Lafont, Feb 05 2009
STATUS
approved