|
%I #8 Jun 11 2017 14:12:56
%S 4,100,1100100,100001100100101000100,
%T 1010110101111001011010001101011011001100110110011001100101110100100
%N Convert the last term from decimal to binary!
%t NestList[FromDigits[IntegerDigits[#,2]]&,4,5] (* _Harvey P. Dale_, Jun 11 2017 *)
%Y For initial terms 2 through 12 see A008559, A006938, A260025, A260024, A260026, A260027, A260028, A260029, A008559 (again), A006938 (again),A260030 respectively.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Jul 14 2015
|
