login
A227740
Integers from 0 to A037834(n) followed by integers from 0 to A037834(n+1) and so on.
8
0, 0, 1, 0, 0, 1, 0, 1, 2, 0, 1, 0, 0, 1, 0, 1, 2, 0, 1, 2, 3, 0, 1, 2, 0, 1, 0, 1, 2, 0, 1, 0, 0, 1, 0, 1, 2, 0, 1, 2, 3, 0, 1, 2, 0, 1, 2, 3, 0, 1, 2, 3, 4, 0, 1, 2, 3, 0, 1, 2, 0, 1, 0, 1, 2, 0, 1, 2, 3, 0, 1, 2, 0, 1, 0, 1, 2, 0, 1, 0, 0, 1, 0, 1, 2, 0, 1, 2, 3
OFFSET
1,9
COMMENTS
Equivalently, integers from 0 to A005811(n)-1 followed by integers from 0 to A005811(n+1)-1 and so on.
LINKS
FORMULA
a(n) = n - (1 + A173318(A227737(n)-1)).
MATHEMATICA
Table[Range[0, #] &@ Total@ Flatten@ Map[Abs@ Differences@ # &,
Partition[IntegerDigits[n, 2], 2, 1]], {n, 34}] // Flatten (* Michael De Vlieger, May 09 2017 *)
PROG
(Scheme) (define (A227740 n) (- n (+ 1 (A173318 (- (A227737 n) 1)))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 25 2013
STATUS
approved