A227740 Integers from 0 to A037834(n) followed by integers from 0 to A037834(n+1) and so on.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..2272

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

Cf. A227737, A227741, A005811, A037834, A173318.

Cf. also A227736, A227738, A227739.

Sequence in context: A107064 A113687 A071006 * A284503 A281455 A284500

Adjacent sequences: A227737 A227738 A227739 * A227741 A227742 A227743

Keyword

nonn

Author

Antti Karttunen, Jul 25 2013

Status

approved