OFFSET
1,1
MATHEMATICA
NestList[FromDigits[IntegerDigits[#, 2]]&, 4, 5] (* Harvey P. Dale, Jun 11 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jul 14 2015
STATUS
approved