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)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 05 2016
STATUS
approved