A269381 Least monotonic left inverse of A233271.

0, 1, 2, 2, 3, 3, 3, 4, 5, 5, 5, 5, 6, 6, 6, 7, 8, 8, 8, 8, 8, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 12, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 19, 19, 19, 19, 20, 20, 20, 21, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 24, 24, 24, 24, 25, 25, 25, 26

Offset

0,3

Comments

a(n) = number of nonzero terms of A233271 <= n.

Links

Antti Karttunen, Table of n, a(n) for n = 0..8192

Formula

Other identities. For all n >= 0:

a(A233271(n)) = n.

Mathematica

nn = 90; s = NestList[# + 1 + DigitCount[#, 2, 0] &, 1, nn]; Table[Count[Take[s, n + 1], k_ /; k <= n], {n, 0, nn}]  (* Michael De Vlieger, Mar 07 2016, after Harvey P. Dale at A216431 *)

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A269381 (LEFTINV-LEASTMONO 0 0 A233271))

Crossrefs

Cf. A233271.

Cf. also A269391.

Sequence in context: A301851 A101646 A166079 * A080677 A344497 A316628

Adjacent sequences: A269378 A269379 A269380 * A269382 A269383 A269384

Keyword

nonn

Author

Antti Karttunen, Mar 05 2016

Status

approved