login
Multiply previous term by 2 and write in binary.
1

%I #12 Sep 18 2018 14:28:48

%S 1,10,10100,100111011101000,

%T 101101100001100111010010100000100111001010010000

%N Multiply previous term by 2 and write in binary.

%C The next term (a(6)) has 158 digits. - _Harvey P. Dale_, Sep 18 2018

%H John Cerkan, <a href="/A001098/b001098.txt">Table of n, a(n) for n = 1..7</a>

%t NestList[FromDigits[IntegerDigits[2#,2]]&,1,5] (* _Harvey P. Dale_, Sep 18 2018 *)

%K nonn,base

%O 1,2

%A Steve Umbehocker [ umbe(AT)dilbert.cqs.washington.edu ]

%E Corrected by _Franklin T. Adams-Watters_, Mar 13 2006