login
A269381
Least monotonic left inverse of A233271.
5
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
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 05 2016
STATUS
approved