OFFSET
1,2
COMMENTS
MATHEMATICA
ans[n_]:=Module[{idn2=IntegerDigits[n, 2]}, FromDigits[{Length[ idn2], Count[ idn2, 0], Count[ idn2, 1]}]]; NestList[ans, 1, 40] (* Harvey P. Dale, Mar 30 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 15 2010, Oct 16 2010
STATUS
approved