OFFSET
0,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Ralf Stephan, Some divide-and-conquer sequences with (relatively) simple ordinary generating functions.
Ralf Stephan, Table of generating functions
PROG
(Haskell)
a071413 0 = 0
a071413 n | m == 0 = a071413 n' + n
| otherwise = a071413 n' - n where (n', m) = divMod n 2
-- Reinhard Zumkeller, Jun 01 2013
CROSSREFS
KEYWORD
sign
AUTHOR
Reinhard Zumkeller, Jun 24 2000
STATUS
approved