0,3

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

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

Other identities. For all n >= 0:

a(A233271(n)) = n.

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

(Scheme, with Antti Karttunen's IntSeq-library)

(define A269381 (LEFTINV-LEASTMONO 0 0 A233271))

Cf. A233271.

Cf. also A269391.

Sequence in context: A301851 A101646 A166079 * A080677 A344497 A316628

Adjacent sequences: A269378 A269379 A269380 * A269382 A269383 A269384

nonn

Antti Karttunen, Mar 05 2016

approved