%I #6 Sep 03 2015 15:12:23
%S 1,2,3,4,5,6,7,8,9,11,12,13,24,15,36,27,48,19,511,312,613,224,715,436,
%T 827,148,919,5511,1312,1613,3224,1715,2436,6827,1148,3919,25511,21312,
%U 41613,73224,11715,52436,46827,31148,63919,825511,221312,741613,173224
%N A doubly-fractal sequence. Erase the first (leftmost) digit of every integer: what is left is the sequence itself. The erased digits, one by one, form also the sequence itself.
%H Ivan Neretin, <a href="/A127274/b127274.txt">Table of n, a(n) for n = 1..500</a>
%t a = Append[Range@9, 11]; s = {1}; Do[AppendTo[a, FromDigits[Prepend[IntegerDigits[a[[-9]]], s[[n]]]]]; s = Join[s, IntegerDigits[a[[-1]]]], {n, 26}]; a (* _Ivan Neretin_, Sep 03 2015 *)
%Y Cf. A127199, A127204, A127303.
%K base,nonn
%O 1,2
%A _Eric Angelini_, Mar 27 2007