1,1

Table of n, a(n) for n=1..93.

d*2, beginning with 5

Read a(2)=10 which produces a(3)=2 & a(4)=0 because 1*2=2 and 0*2=0

Now read a(3)=2 which produces [a(4) is already written] a(5)=4 because 2*2=4.

Flatten[ NestList[ Function[x, Flatten[FromDigits /@ 2IntegerDigits[x]]], 5, 15]] (* Robert G. Wilson v, Feb 21 2005 *)

Sequence in context: A099731 A091306 A073048 * A169841 A084341 A054513

Adjacent sequences: A102255 A102256 A102257 * A102259 A102260 A102261

base,easy,nonn

Alexandre Wajnberg and Eric Angelini, Feb 19 2005

More terms from Robert G. Wilson v, Feb 21 2005

approved