This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A102256 #7 Mar 29 2015 16:32:20 %S A102256 1,2,4,8,1,6,2,1,2,4,2,4,8,4,8,1,6,8,1,6,2,1,2,1,6,2,1,2,4,2,4,2,1,2, %T A102256 4,2,4,8,4,8,4,2,4,8,4,8,1,6,8,1,6,8,4,8,1,6,8,1,6,2,1,2,1,6,2,1,2,1, %U A102256 6,8,1,6,2,1,2,1,6,2,1,2,4,2,4,2,1,2,4,2,4,2,1,2,1,6,2,1,2,4,2,4,2,1,2,4,2 %N A102256 Begin with 1, multiply each digit by 2, separate the digits. %C A102256 Same digits as A061581 and A102251 but separating all digits. %e A102256 Read a(4)=8 which produces, doing 8*2=16 ["1" & "6"], a(5)=1 & a(6)=6. %e A102256 Now read a(5)=1 which produces [a(6) is already written] a(7)=2 because 1*2=2. %e A102256 Now read a(6)=6 which produces [a(7) is already written] a(8)=1 & a(9)=2 because 6*2=12 ["1" & "2"]. %t A102256 Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[ 2IntegerDigits[ x]]]], 1, 14]] (* _Robert G. Wilson v_, Feb 21 2005 *) %Y A102256 Cf. A061581, A102251. %K A102256 base,easy,nonn %O A102256 1,2 %A A102256 _Alexandre Wajnberg_ and _Eric Angelini_, Feb 19 2005 %E A102256 More terms from _Robert G. Wilson v_, Feb 21 2005