A102259 - OEIS

%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