%I#7 2015年3月29日16:31:49

%S 5,10,2,0,4,0,8,0,16,0,2,12,0,4,12,0,2,4,0,18,4,8,8,1,6,0,12,16,2,12，

%温度0,4,2,4,2,12,2,4,1,4,0,8,4,4,2,4,8,8,0,16,8,16,4,6,0,2，

%U 12,16,2,12,16,18,16,2,12,16,2,12,0,4,2,2,12,2,2,2,4,2,4,12,16,12,4,4,2,12.4

%N从5开始，将每个数字乘以2。

%F d*2，从5开始

%e读取a（2）=10，它产生a（3）=2&a（4）=0，因为1*2=2和0*2=0

%现在读取a（3）=2，这产生[a（4）已经被写入]a（5）=4，因为2*2=4。

%t压扁[NestList[Function[x，Flatten[FromDigits/@2IntegerDigits[x]]，5，15]]（*_Robert G.Wilson v_，2005年2月21日*）

%K基础，简单，无

%O 1，1

%A_Alexandre Wajnberg和_Eric Angelini，2005年2月19日

%E更多条款摘自2005年2月21日_Robert G.Wilson v_