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

Author

Antti Karttunen, Jul 25 2013

Keywords

• nonn

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

Crossrefs

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

Cf. also A227736, A227738, A227739.

Programs

Mathematica

Table[Range[0, #] &@ Total@ Flatten@ Map[Abs@ Differences@ # &,
Partition[IntegerDigits[n, 2], 2, 1]], {n, 34}] // Flatten (* Michael De Vlieger, May 09 2017 *)

Scheme

(define (A227740 n) (- n (+ 1 (A173318 (- (A227737 n) 1)))))

Formula

a(n) = n - (1 + A173318(A227737(n)-1)).