|
%I #7 Mar 29 2015 16:31:49
%S 5,10,2,0,4,0,8,0,16,0,2,12,0,4,2,4,0,8,4,8,0,16,8,16,0,2,12,16,2,12,
%T 0,4,2,4,2,12,4,2,4,0,8,4,8,4,2,4,8,4,8,0,16,8,16,8,4,8,16,8,16,0,2,
%U 12,16,2,12,16,8,16,2,12,16,2,12,0,4,2,4,2,12,4,2,4,2,12,16,2,12,4,2,4,2,12,4
%N Begin with 5, multiply each digit by 2.
%F d*2, beginning with 5
%e Read a(2)=10 which produces a(3)=2 & a(4)=0 because 1*2=2 and 0*2=0
%e Now read a(3)=2 which produces [a(4) is already written] a(5)=4 because 2*2=4.
%t Flatten[ NestList[ Function[x, Flatten[FromDigits /@ 2IntegerDigits[x]]], 5, 15]] (* _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
|
