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

Author

Antti Karttunen, Mar 05 2016

Keywords

• nonn

Comments

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

Links

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

Crossrefs

Cf. A233271.

Cf. also A269391.

Programs

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 *)

Formula

Other identities. For all n >= 0:

a(A233271(n)) = n.