%I #7 Mar 29 2015 16:31:18
%S 5,1,0,2,0,4,0,8,0,1,6,0,2,1,2,0,4,2,4,0,8,4,8,0,1,6,8,1,6,0,2,1,2,1,
%T 6,2,1,2,0,4,2,4,2,1,2,4,2,4,0,8,4,8,4,2,4,8,4,8,0,1,6,8,1,6,8,4,8,1,
%U 6,8,1,6,0,2,1,2,1,6,2,1,2,1,6,8,1,6,2,1,2,1,6,2,1,2,0,4,2,4,2,1,2,4,2,4,2
%N Begin with 5, multiply each digit by 2, separate the digits.
%e Read a(1)=5 which produces, doing 5*2=10 ["1" & "0"], a(2)=1 & a(3)=0.
%e Now read a(2)=1 which produces [a(3) is already written] a(4)=2 because 1*2=2.
%e Now read a(3)=0 which produces [a(4) is already written] a(5)=0 because 0*2=0.
%t Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[2IntegerDigits[ x]]]], 5, 14]] (* _Robert G. Wilson v_, Feb 21 2005 *)
%K base,easy,nonn
%O 1,1
%A _Alexandre Wajnberg_ and _Eric Angelini_, Feb 19 2005
%E More terms from _Robert G. Wilson v_, Feb 21 2005